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Foreword 


With the large-scale introduction of BBC Microcomputer 
systems in Indian Schools, there has arisen a strong need for a 
book which will help students and teachers to understand com- 
puters and work with them. This book attempts to meet this 
need. It is specifically written for the BBC microcomputer and 
the version of BASIC used by it. The language of the book is 
lucid and the treatment simple. The development of the con- 
tent is graded. The book moves with the basic concepts of com- 
puters and takes the reader gradually through the different 
steps in programming. Starting with an introduction to flow 
charting and simple commands, the book sails smoothly to col- 
our Graphics and Sound; which are unique features of the 
BBC Microcomputer. The exercises at the end of each chapter 
will help the reader to test his understanding of the text. The 
book furnishes over 100 listings of Programs, which should 
serve as good examples of practical applications. A summary of 
commands and computer terminology provides the reader with 
a ready reference. 

Though the book will primarily be useful to the students and 
teachers involved in the implementation of the CLASS project, 
it should prove a valuable guide for anyone interested in learn- 
ing BASIC as there are only minor variations in the different 
versions of BASIC. 

I wish the book all success. 


K. VENKATASUBRAMANIAN 


Professor and Head of the Deptt., 

Electrical and Electronics Engg. and 
Co-ordinator, Project CLASS Resource Centre, 
Technical Teachers’ Training Institute, 
Bhopal 462 002. 


Preface 


Computers have a vital role to play in today’s world. Every se- 
cond person needs or wants to learn how to use a computer. In 
line with these felt needs, in 1984 the Government of India in- 
itiated the CLASS (Computer Literacy and Studies in Schools) 
Project to spread computer consciousness and computer skills 
amongst school-students, and provided a wide cross-section of 
schools across the country with BBC Microcomputers. 

This book has been written as a text to meet the needs of 
students of Classes XI and XII of schools under the CLASS 
PROJECT and the many other schools who have independent- 
ly instituted computer classes. Although the book is written 
specifically for those using the BBC Microcomputer, with 
slight modifications it can be used with any other microcom- 
puter which is based on BASIC computer language. 

A step by step approach has been adopted in structuring the 
book to enable students to acquire computer skills painlessly, 
even without the guidance of a teacher. Great stress has also 
been laid on exercises, both solved and unsolved, at the end of 
each lesson to give students confidence in their mastery of one 
computer skill before proceeding to the next. A special feature 
is the inclusion of chapters on Advanced Graphics, Animation, 
and Sound and Teletext Control. 

In writing the book I have been greatly aided by the stan- 
dard literature on the subject and am greatly indebted to the 
respective authors. I am extremely grateful also to Prof. K V 
Subramanian for his able guidance, my principal and col- ` 
leagues for their encouragement, and to my students for their 
assistance in the preparation of the manuscript and testing the 
programmes. My thanks go also to Mr Indorkar for the 
preliminary drawings, Mr O P Gupta for typing the text and, 
last but not least, Oxford University Press, my publishers, for 


vi PREFACE 


their cooperation in editing, designing and producing the 
book. I need hardly add that I own full responsibility for any 
errors that may have inadvertently crept into the text and 
would greatly welcome readers’ suggestions. 


M S SOLANKI 


Kendriya Vidyalaya 
Bhopal 
26 January 1988 
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CHAPTER 1 


Electronic Computers and 
Their History 


Computers have begun to make their presence felt, both 
directly and indirectly, in a growing number of spheres of our 
daily life. Our electricity bills, bank accounts, controlling 
devices at home and in industry, reservations in airlines, 
teaching, medicine, defence, printing, pay and accounts, 
business and scientific research — in short, almost every aspect 
of our lives, are affected by computers. The computer revolu- 
tion is upon us! 

As computers are making rapid inroads into our daily lives, 
only a very small minority of people with technical education 
in electronics really understand what these machines are made 
for and how they work. 

In school education computers play a very important role. 
Teachers can use co »puters to teach their subjects more effect- 
ively, Some CBI- Zomputer-Based Learning) packages on 
graphs, chemic;\ lements, transverse waves, longitudinal 
waves, molecular theory, etc. are already in use in our schools 
under the CLASs PROJECT. When the learning/teaching process 
is guided by a computer, it is known as CBL (Computer Based 
Learning) or CAI (Computer Assisted Instruction). The com- 
puter is also used in evaluation work and in the tabulation of 
marks. 


WHAT IS A COMPUTER? 


`А computer is an electronic device that has the ability to ac- 
cept data, internally store and execute a programme of in- 
structions, perform mathematical and logical operations on 
the data and report the results.’ 


A Brief History 

The first mechanical calculator was developed by the 
Chinese as long ago as 2200 B.C. This was the abacus which has 
a rectangular wooden frame fitted with beads. It is still in use 
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in Japan, China, India and other countries for primary educa- 
tion. You might have seen one when you were in kindergarten. 


Fig. 1.2 


John Napier, a distinguished Scottish mathematician pre- 
pared rods for multiplication around 1617. He called these 
rods ‘bones’. He also developed logarithmic tables which were 
based on the laws of indices and were used for multiplication 
and division. Henry Briggs, a student of John Napier, prepared 
a common logarithmic table with base 10. The common 


logarithmic table is still in use and may be found in your 
Physics and Mathematics books. 
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Necessity is the mother of invention. A calculating machine 
was prepared by Blaise Pascal, a French mathematician, in 
1641 when he was only eighteen. His father was an accountant 
and had a lot of calculation work to do, so Blaise Pascal 
prepared an ARITHMETIC MACHINE to help his father. This 
machine was fitted with gears and was very popular in those 
days. The Queen of Sweden was so fascinated by it that she 
placed an order for one such machine. 


Fig. 1.3 


In 1853 William Oughtred and Robert Bissakar simul- 
taneously prepared a slide rule. This was very useful and re- 
mained in use upto the early 60s of this century. The slide rule 
facilitated most engineering calculations and it remained in 
use until electronic calculators made their appearance. 


\ 


ae 


Charles Babbage, an Englishman, was the first person to 
propose the basic concepts of the modern computer. He 
designed a Difference Engine in 1822. He was keen to incor- 
porate the capability of storing intermediate results and recall- 
ing them when they wererequired in subsequent calculations. 
This is what the present computers are capable of. He was, 
however, unsuccessful in achieving this during his lifetime, 
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Fig. 1.5 


Dr Herman Hollerith of the USA contributed a lot to the 
development of the computer. He was working in the census 
department. He invented a machine in which he used punched 
cards to store and tabulate census data/information. These 
cards were very popular and are even today a common medium 
for feeding information into the computer. 

The world's first digital computer called MARK 1 was 
prepared jointly by Messrs International Business Machines 
and Howard Aikens and Grace Hopper of Harvard University in 
1944. It had a limited memory and dissipated a very large 
amount of heat. It was also very slow. 

The ENIAC (Electronic Numerical Integrator and Calculator) 
was made in 1947 by J.W. Mauchly and J.P. Eckert at Penn- 
sylvania University. It consisted of about 18,000 vacuum tubes, 
10,000 capacitors, 70,000 resistors and 60,000 switches, and 
weighed about 27 tonnes. It was the first electronic computer in 
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the history of the computer. UNIVAC I was the first commer- 
cially available computer used for programming. 


After the vacuum tube computer, transistorized computers 
were brought out in the late 1950s, followed by integrated- 
circuit computers in the mid-1960s. Then the microprocessor 
was developed. This is a single electronic chip and consists of a 
very large number of logical circuits. The use of the 
microprocessor reduced the size and price of the computer and 
enhanced its speed as well as capacity. 


TYPES OF COMPUTERS 


(i) Analog Computer 
(ii) Digital Computer 
(iii) Hybrid Computer 


Analog Computer 

In this computer numerical information (data) is presented 
in the form of a quantity, usually a voltage, that can vary con- 
tinuously. This varying quantity is an analogue of the actual 
data, i.e. it varies in the same way as the data of the program. 

Analog computers are used in the automation control of cer- 
tain industrial operations ‘and in various other scientific ex- 
periments. They can perform much more complicated mathe- 
matics, viz. solution of the differential equation, than digital 
computers. But the analog computers are less accurate than 
digital computers. 

The Analog computer determines the desired answer based 
on physical measurements. 


Digital Computer 

An automatically controlled electronic calculating machine 
in which data is represented by the combination of discrete 
electrical pulses denoted by digit 0 and 1. Arithmetical and 
logical operations are performed on the data in accordance 
with the instructions supplied in the program. The instructions 
coded in binary form are analysed and processed by the central 
processing unit of the computer and the result is com- 
municated to the operator. In simple words, the digital com- 
puter produces the desired result based on computation of 


numbers. 


6 BBC BASIC PROGRAMMING 


More than 90% of the computers worldwide are digital 
computers. 


Hybrid Computer 


A computer system that is equipped with both digital and 
analog capability. These computers are designed for certain 


specific functions and have various uses in the technical and 
scientific fields. 


WHAT CAN A COMPUTER DO? 


(1) Computers can perform Arithmetic Operations 

(2) Computers can perform certain Logical Operations 

(3) Computers can Store and Recall information 

(4) Computers can Communicate with their operators 

(5) Computers can direct themselves in a predetermined 
manner 

(6) Computers can process large volumes of data 

(7) Computers can interpret messages from remote locations 


CLASSIFICATION OF COM PUTERS 


According to use and size: 


(1) Personal Computer 

(2) Micro Computer 

(3) Mini Computer 

(4) Large Computer 

(5) General Purpose Computer 
(6) Special Purpose Computer 
(7) Super Computer 


Computer System 


A computer system consists 
of which are necessary and of 
(i) Hardware: CPU, Print 
Monitor/Console, Magnet 
netic tape, etc. 
(ii) Software: Programs 


of the following components, all 
equal importance. 

er, Disc drive, Tape recorder, 
ic Floppy Disc, Program, Mag- 
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Fig. 1.7 


HOW DOES A COMPUTER OPERATE? 


The input and output units are the components with which the 
computer communicates with the user. The basic input signals 
can be set in two positions, like OFF-ON switches. The binary 
digits are 0 for OFF and 1 for ON positions. The input signals 
are first converted into binary signals and then processed by 
the computer, then reconverted into an understandable form. 
The memory unit is obviously for storage of data and pro- 
grams. The arithmetic and logical units carry out the opera- 
tions on the data that their names suggest. The control unit 
acts as a co-ordinator in the execution of a program. The ar- 
rows in the diagram represent the communication links bet- 
ween the different units. The central processing unit has three 
sub-units, namely, (i) control unit, (ii) main memory, (iii) 
arithmetic logical unit (ALU). 

The diagram below illustrates the simple working and comm- 
unication links between the different units of acomputer system. 
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Fig. 1.8 
WHAT DO YOU KNOW ABOUT I/O DEVICES? 
Input Media 


These are used to feed the data/information into the 
computer. 


INPUT MEDIA x INPUT DEVICE 
Magnetic Tape : Tape Drive 
Magnetic Floppy : Disc Drive 


Output Media 


On these media, com 


7 puters give out the result of the pro- 
cessed input data. 


OUTPUT MEDIA 
Magnetic Disc - Disc Drive 
Magnetic Tape : Tape Drive 
VDU Screen : — VDU/Monitor 
Paper (Stationery) : — Printer 


OUTPUT DEVICE 
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VDU (Monitor) 


The Visual Display Unit or Video Display Unit is like a TV 
set. Generally home computers are connected to the TV, 
which is also known as a monitor. 


CPU (Central Processing Unit) 


It is the brain of the computer. A highly complex electronic 
device which supervises all activities within the computer, it 
reads the information (data) of the program. The CPU 
transfers each item of information from the main store and 
electronic circuits analyse the information. All arithmetical 
and logical operations are performed by the ALU. After com- 
plete processing the CPU transfers the result to the output 
device so as to communicate with the user. 

The size of the CPU was diminished considerably with ad- 
vancement in technology. Now it is possible to form a central 
processor on a single silicon chip a few millimetres in area. 
This tiny mastermind device is called a microprocessor. 

The CPU consists of three parts: (i) Main memory; (ii) Con- 
trol unit; (iii) Arithmetic & Logic unit (ALU). 


Small and Large Computers 


A computer is classified as small or large on the basis of its 
storage capacity. A computer with a very small memory 
capacity (eg. 16K or below) is called a small computer whereas 
one with large memory capacity (256K, etc) is called a large 
computer. Memory is measured in Byte/Kilobyte (К). ІК- 
2 ^ 10 Byte, i.e. 1K = 1024 bytes. Тһе BBC microcomputer has 
got a 32 K memory. 


Bit & Byte 

The CPU is made up of numerous tiny electronic circuits 
(called gates) which distinguish between the two levels of elec- 
tronic current flowing through them, namely zero and one, All 
data, however complex, is represented by a combination of the 
two digits zero and one (Binary digits), The fundamental units 
(zero & one) in a binary system are called ‘bits’; and a collec- 
tion of multiple of eight bits is called a ‘byte’. The abbreviation 
of a BInary digiT is BIT. Normally, a single character will oc- 
cupy 1 byte memory. 
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High Level Computer Languages 


There are many different high level languages that are used 
for computer programming. The most basic of these is the 
machine language which is not a high level language. Some 
common high level languages are listed below. 


NAME OF 
LANGUAGE EXPANSION PURPOSE 
BASIC Beginners All-purpose Sym- General 
bolic Instructional Code. 
FORTRAN FORmula TRANslation Engineering 
& Scientific 
COBOL COmmon Business Oriented 
Language Business 
CAL Conversational Algebraic 
Languages Scientific 
PL/I Programming Language I Business & 
Scientific 
PASCAL Named after French scientist Scientific & 
BLAISE PASCAL General 


Limitations of the Computer 


The computer cannot exercise judgement or commonsense, 
and it must be clearly іп 


structed in the program as to how to 
handle every Contingency. What to do if the answer of an in- 
termediate calculation becomes zero, or when particular excep- 
tions to the anticipated results occur. Each eventuality must be 
analysed completely or the program will not work satisfactorily 
(although this may not be immediately apparent). 


EXERCISES 


1. What is an electronic computer? 

2. Distinguish between: 
(a) Analog and di 
(b) bit and byte; 
(c) input and output devices; 
(d) ^ CPU аһа VDU. 

3. Who invented the slide rule? 


gital computers; 
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Write down the full form of 

(a) CPU 

(b) COBOL 

(c) BASIC 

(d) FORTRAN 

(e) ALU 

(f) BIT 

(g) ENIAC 

(h) PL/I 

(i) I/O device 

(j) VDU 

What was the name of the first electronic computer? 
How many bytes are there in a kilobyte of memory? 
What does a computer do? 

What are the different types of computers? 

What do you understand by the term small and large 
computers? 

What is a microprocessor? 


СНАРТЕК 2 


The Keys of the BBC Micro 
BASIC Computer Language 


BASIC is an acronym for Beginners All Purpose Symbolic In- 
structional code. This was first invented by Prof. |.С. Kemeney 
and T.E. Kurtz of Dartmouth college, New Hampshire, USA 
in the early 1960s and was implemented in 1964. Since then 
many BASIC versions have been developed. One of them is 
‘standard BASIC’ used by BBC Micro-computers in Indian 
schools. | 

Most of the instructional statements of BASIC are similar to 
those of algebra and a simple version of the English language. 
It is, as a result, easy to learn and understand. 


Merits of BASIC 

. Easy to learn; 

. suitable for conversational programming; 
. simplified grammar; 

. suitable for carrying out 
. universally available: 

. used for both Mathematical and Business purposes; 
. easy to edit: 

. the result may be represented in sophisticated form; 
. provision for filing of program and data ; 

. primary language of Microcomputer ‘faddist’. 


Demerits of BASIC 
Іс Lengthy programs; 


2. slow in execution: 
3. cannot be used for y 
tific programs. 


arithmetic and logic operations; 
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KEYS OF THE BBC MICROCOMPUTER 


There are 73 keys and a Space bar on the keyboard of the BBC 
Microcomputer. Fortyeight of them are used for typing the 
characters but the other twentyfive keys are used for special pur- 


USER DEFINED KEYS TO Er THE COMPUTER 


— 342: 
= ЕЕЕ °° CURSOR PE KEYS 
EETEIEIDBBIEERET: 
EIXSUBUOBBDBEDOGOSBJGM 
ІНЕН SET НЕ e 
НИН ІШ ШЫНЫ DT= E= 


SPACE BAR 


CONTROL 


Fig. 2.1 KEYBOARD OF BBC COMPUTER 
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poses. The functions of these special-purpose keys are listed in 
the following table. 


KEYS 2 ТА5К 

CURSORCONTROL : Ву pressing this key the cap lock in- 

dicator is ON. 

: It gives capital letters and lower case 
symbols. 

: By pressing the key again the cap 
lock indicator is OFF. This gives 
small letters and lower case symbols. 
(Note that the shift lock indicator is 
also OFF.) 

SHIFT LOCK : By pressing this key the shift lock in- 
dicator is ON. This gives capital let- 
ters and upper case symbols. 
Pressing the key again switches the 
shift lock indicator OFF. This gives 
small letters and lower case symbols. 
Note that caps lock indicator is also 
OFF. 

: If this key is held down and any other 
key is pressed simultaneously, it gives 
capital letters and upper case sym- 
bols. 

: This provides space between two 
characters. 

: These аге ten (ff-f9) red-coloured 
keys. They can be assigned some 
special work. You will use them in 
the ‘CALC’ program іп the 
WELCOME disk. 


SHIFT 


SPACEBAR 


FUNCTION KEYS 


RETURN : This key informs the computer that 


the user has finished entering a line 
and is waiting for a теріу. 

: This key wipes out almost everything 
that is in the current memory of the 
computer. It is also used to return to 
the disk-filing system. 


BREAK 
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ESCAPE 


DELETE 


TAB 


: Takes the user out of the present 


program without erasing it from the 
memory. It is, thus, used to stop/ 
interrupt the current running pro- 


gram . 


: Erases the last character from (һе 


CURSOR CONTROL : 


= 11 


СОРҮ 


CTRL 


CTRL BREAK 


CTRL SHIFT 


CTRLB 
CTRLC 
CTRLN 


screen. If held down continuously it 
erases further characters until 
released. 

Used in the WORD PROCESSING pro- 

am. 

These four keys help the user to 
move the Cursor anywhere on the 
screen for editing a program. By 
moving the normal cursor by these 
keys the user can put the Computer 
in the editing mode. 


: This key is used in conjunction with 


the cursor control keys in the editing 
mode. In the editing mode the user 
will see two cursors. One a normal 
cursor and the other a solid rec- 
tangle. The normal cursor reads 
while the solid rectangle cursor 
writes. That is why they are called the 
Reader Cursor and the Writer 
Cursor. 


: This key is used together with the 


other keys for a different purpose. A 
few of them are listed here. 


: These keys wipe out the complete 


memory of the computer. It is essen- 
tial for long programs. It is also used 
to return to the disk or disk-filing 
system from the tape. 


: These keys stop the computer from 


writing on the screen. 


: These keys start the printer. 
: These keys stop the printer. 
: These keys control the printing of 


line numbers on the screen. It is 
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essential to see a lengthy program 
page by page. By using SHIFT the 
user can see the next page. Thus we 
can say that this puts the computer 
in paged mode. 


 CTRLO : These keys enable return to original 

mode from the paged mode. 

CTRLG : These keys make the internal spea- 
ker produce a short noise. 

CTRL ^ : These keys move the cursor to the 
top of the text area. 

CTRLI : These keys move the cursor by one 
character position. 

CTRLU : These keys move the cursor down 
one line. 

CTRLP : These keys clean the graphic area of 


the screen to the graphic back- 
ground colour. 2 

: These keys are used to get a colour 
effect in MODE7.(See Users Guide 
for details.) 


SHIFT #0 to F9 


СНАРТЕК 3 


Flow Chart and Algorithm 
(A First Step in Programming) 


"А computer cannot be used to solve a problem until a method 
or solution has been evolved and a detailed procedure has been 
prepared by the programmer. It is essential, therefore, that the 
programmer has a clear cut concept of the problem-solving 
procedure and sufficient deductive and reasoning skills. 


Planning is very essential for solving a problem. When we 
want to solve our problems, we have to work out in detail each 
and every step for the solution of the problem. Just as one has 
to prepare a plan (blueprint) before building a house, one has to 
list the procedure and sequence of the solution. The user should 
prepare a strategy to solve the problem. 

The sequence of the instructional steps for solving a problem 
is called algorithm. 

A flow chart is a diagrammatical representation that il- 
lustrates the sequence of operations to be performed to arrive 
at the. solution. The instructions are placed in boxes and are 

` connected by arrows to indicate the order of execution. 
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Merits of a Flow Chart 
1. А flow chart is an important instrument in the develop- 
ment of the algorithm. 
2. Іс facilitates the preparation of a computer program. 


3. It can be used to translate an algorithm in any pro- 
gramming language. 
The commonly used box symbols and their meanings are 
given below: 


SYMBOLS : MEANING 


start or end 


: PRINT or INPUT 
or OUTPUT 


decision-making 


<— — flow indicators 


Example 1: To calculate amount and compound interest. 
Algorithm 

Start 

Read P,R,T 


Calculate A= P (1 + R/109)^ 
Calculate Cl= A— P 


Round off upto two decimal places 
Print А, СІ 


Stop 


МЧ альщ гә 


—— W 
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Flow Chart 


Input P, R, T 
Calculate amount A 
Calculate CI 


Round off A and CI upto 2 decimal 
places 


Print A, CI 


Example 2: To solve a quadratic equation. 


Algorithm 
1 Start 
2 Read coefficient of Х?, coefficient X and the constant term; A, В, С 
3 Calculate D= В?- 4AC 
4 If D < Dthen print no real roots and stop 
5 IF D > Ø then calculate X1 and X2, 
S -в+ VD 

using X= ah 
6 Print out the results 
7 Stop. 
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Input A, B, C 
Calculate D 


Flow Chart 


Calculate VD 
Calculate Xj, Xo 


Example 3: To prepare a table of squares, cubes and 
reciprocals of numbers from 1 to 12 


Algorithm 

1 Start 

2 Read a number, say N 

З Calculate №, № and 1/N 

4 Print ў 

5 If N< 12 then repeat steps 2, 3 and4 
6 Stop. 


—- 


FLOW CHART AND ALGORITHM - 21 


Flow Chart 


Take the first number 


Calculate the square, cube, 
reciprocal 


Take next number 


Print the square, cube, reciprocal 


Example 4: To find the sum of the given numbers in the data 
and also their average. 


Algorithm 
1 Start 
2 Read total no. of the data, say N 
З Initialise sum= Ø and counter= Ø 
4 Read a number, sayA 
5 Make sum= sum+A 
6 Increase counter by 1 
7 Check the counter< N, then repeat step 4,5, 6 and7 
8 Print out sum 
9 Calculate average 

10 Stop. 


| 5 39° 
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Flow Chart 


Sum = 0, Counter = 0 


(| Read A from data 
Calculate sum = sum + A 
Increase counter by 1 


Calculate average = Sum/N 


= 
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Example 5 То calculate factorial of М (i.e. ІМ) 
Algorithm 


1 Start 

2 Read a number, say М 

3 Set acounter= 0 

4 Take a number 1 

5 Multiply by next number 

6 Increase the counter by 1 

7 Repeat steps 5 and 8 until counter- N- 1 
8 Print out the final product obtained in step 5 
8 Stop. 


Flow Chart 


Take number 1, counter= 9 


Multiply by next number 
Increase counter by 1 


23 
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Example 6 To count the desired word in the set of words. 


Yes 
Increase the counter, C=C +1 
Print A$ and C 
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Example 7 Flow chart for stock query (say, books on a par- 
ticular subject). 


Input name of the subject, E$ 


Read data block 
Is 
item name 


No same as 
file? 


Subject is not in stock 


Print sub. data 
Reset pointer 
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Example 8 То find the order of two numbers. 
Algorithm 
1 Start 
2 Take two numbers say A and B 
3 Compare А and В 
if A > B then print A is greater than В 


if B > A then print B is greater than A 
Otherwise print A= В 
4 Stop. 


Flow Chart 


Read A and B 


Print A < B 


Print A > B 
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EXERCISES 


l(a) Draw flow charts and write algorithms for the following: 


(b) 


Л; 


82 
4. 
D? 


To calculate the circumference and area of a 
circle. 

To calculate the compound interest compounded 
half yearly. 

To calculate factorials of 10. 

To calculate the area of a rhombus. 

To calculate the net price after successive discounts. 


Write down the algorithms for flow charts given in ex- 
amples 6,7 and 9. 

Read the following algorithm carefully. Correct mis- 
take(s), if any. Draw a flow chart. 


Algorithm 

^ ‘Start 

9 input three numbers, say A. B, C. 
3 Compare A with B 


4 


[i] If A > B, then compare A with B. 

[i] ІҒА > C, then print A is the greatest. 
Otherwise print C is the greatest. 

If 3(i] fails, then compare B and C. 

If B > C, then print B is the greatest, 
Otherwise print C is the greatest. 

Stop. 
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Some Useful Concepts of BASIC 


Characters on the Keyboard 


The BBC Microcomputer has a set of characters which con- 
sists of letters, digits, punctuation marks and other symbols. 
They are classified in three subsets. 


1. 


2. 


ok 


Letter of the alphabet 
аве 2” 


Special characters (symbols) 
+ plus (operator for addition) 
— minus (operator for substraction) 
* asterisk (operator for multiplication) 
/ slash (operator for division) 
^ upward arrow (operator for exponentiation) 
( opening bracket 
) closing bracket 
5 сотта 
; semicolon 
colon 
$ dollar 
% percentage 
ФЕ hash 
n point 
<  isless than 
> is greater than 
=  isequalto 
— dash 
double quotation marks 
£ pound 
& and 
! exclamation mark 
@ at the rate of 
? question mark 
> apostrophe 
( opening bracket 
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1 closing bracket 

( opening parenthesis 

) closing parenthesis 

>= is greater than ог equal to 

< = is less than or equal to 
Constants 


Constants are numerals and words which do not change their 
values during the program. There are two types of constants. 

1. Numeric Constants Numeric quantities are those which 
refer to numbers. 

Example 67.7, 4657.478, 23E12, 0.21345, — 2145.45 

The magnitude of numbers that can be processed by the 
BBC Microcomputer ranges from 10758 to — 10^ 38. 

BASIC allows a number to have as many as 8 or 9 significant 
figures. Commas are not permitted in numeric constants and 
the positive sign is optional. 


2. String Constants A string constant is any set of valid 
BASIC characters enclosed in double quotation marks. A str- 
ing constant may have a letter number or space with quotation 
marks. 

Example “NARENDER”, “DEVENDRAMOHAN SINGH”, 
“BHOPAL”, “KENDRIYA VIDYALAYA SANGATHAN”, 
"DECEMBER 25, 1982”, “4567”, “Р + Q/R" 


RELATIONAL SYMBOLS AND THEIR USAGE 


Relational Usage Meaning 
Symbol 

= P=Q P is equal to Q 

< P< OQ! P is less than Q 

> p>! P is greater than Q 
< = or =< P <=Q P is less than or equal to 9 
>= or => P=>Q P is greater than or equal 

to О 


<= or > P< >Q P is not equal to О 


Note The symbols= (is equal to) and < > (is not equal 
to) are also used for string variables. Such as 
10 LET A$= “CALCUTTA” 


30 BBC BASIC PROGRAMMING 


10 LET K$ < > “RAM” 


Variables 


BASIC deals with three types of variables. 

1. Numeric variables A numeric variable is generally 
represented by a single letter followed by a single digit but the 
BBC Micro allows one to use more letters such as RC, 
NUMBER, MSS, К9, etc. 

2. String variables In the BBC Micro the string variables 
are defined by a set of alphabets followed by a dollar symbol 
($). For example NAME$, A$, КАМ6, LESSON$, etc. But 
you cannot use the string variable LETTER$ since LET is a 
BASIC instruction. So avoid such strings which can confuse the 
computer. 


3. Integer variables Integer variables are represented by a 
single letter or single letter followed by a single digit ter- 
minated by a percentage symbol (%), such as А%, 59%, 
K3%, etc. 


MATHEMATICAL OPERATORS 


_Symbol _ Operation 
+ Addition 
= Subtraction 
+ Multiplication 
/ Division 
& Exponentiation 
Expressions 


An expression is a symbol or group of symbols connected by 
operators. These symbols may be numbers, strings, variables 
and functions. 

Here it is to be noted that two arithmeti 
be used consecutively in the s 
X^*Y, but a unary minus 


€ operators cannot 
ame expression, such as A 4- — B, 
is valid, as in P* — 0. 

Order of Execution 


BASIC assigns the highest 
The next precedence is given to unary minus and then 
multiplication and division (both of which have the same 
order), The lowest order is given to addition and subtraction 


Precedence to exponentiation. 
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(both of which have the same order). But the expressions in 
closed brackets are evaluated first. 


Statement Numbers 

Statement numbers are also known as the line numbers of 
the instructions. These line numbers are taken from 1 to 9999. 
Generally, statement numbers are taken in multiples of 16 
which allow insertion of some missing line numbers. The com- 
puter executes the program line by line, according to these line 
numbers. 


SOME SYSTEM COMMANDS AND BASIC STATEMENTS 
WITH THEIR USES 


KEYWORDS TASK 


*CAT To get a catalogue of the programs in the 
disc 

*TAPE To connect the tape drive to the computer 

*DISK or 

*DISC To connect the disc drive 

*DELETE To remove a program from the memory of 
the disc or tape 

*KEY To program one of the user-defined keys 

*ОРТ Determines how the computer reacts to er- 


rors during loading of cassettes and the 
amount of detail given during cassette 
operations 

AUTO To automatically get program number lines 
as a program is written. The first number 
and spacing between the line numbers can 
be specified 


LOAD To transfer from the cassette or disc to the 
computer memory 

RUN To execute the program 

CHAIN Equivalent to LOAD+ RUN 

LIST To display the list of the program instruc- 

У tions which is currently in the memory 

NEW To remove the program from the computer's 

memory 


OLD To recover a program deleted from the 
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memory by typing NEW or pressing BREAK 


CLS To clear the text area of the screen 

CLG To clear the graphic area of the screen 

RENUMBER To convert all line numbers into multiples of 
10 along with the СОТО numbers in the 
program 

SAVE 


То record the current Program on the disc 
ог cassette 


Fig. 4.1 


BASIC PROGRAMMING 


The functioning of the computer is controlled by a set of order- 


RAMMING LANGUAGE. The program 
ROGRAM. 
How to Start Your BBC Microcomputer 


Plug in the sockets and Switch оп the electricity. Now swi 
. switch 
on the computer and the VDU, and then the ВВС Micro. You 
will hear a two tone sound of greeting 'HEL-LO'. 
Now you will see the fo 


llowing message displ 
VDU screen : ge displayed on the 
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BBC computer 32K 
Acron DFS 

BASIC 

> -- 

This message tells us the name of the computer “ВВС com- 
puter” which has 32K (kilobytes) memory. Acron is the name 
of the manufacturing company. DFS stands for disc filing 
system. This computer follows the BASIC language. The sym- 
bol » is called the ‘prompt’ which means that the computer is 
ready. The flashing line is called the ‘cursor’, and it shows you 
where on the screen your typed instructions will appear. 

Now the computer is ready for your work and it is your turn 
to assign some work to it in its language, i.e. BASIC. 


Entering a Program 

Whenever you start your Microcomputer you will find the 
prompt symbol and the cursor on the VDU. 

Then the user has to type the line number first, followed by 
the BASIC statement. The typed information will not go into 
the computer memory until it is terminated by pressing the 
RETURN key. As soon as you press the RETURN key the pro- 
mpt (>) symbol and the cursor will appear at the beginning of 
the next line. Again, the user has to type the next line number 
followed by BASIC statement and terminate by pressing the 
RETURN key. 


Either wk me te sit ой 
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This procedure is continued until all the Program statements 
have been entered and placed in the computer’s memory. 

The user will see the prompt symbol after pressing the 
RETURN key for the last time. 

Now the user has to decide what to do with the programm- 
ing, viz. RUN, LIST, or SAVE. 


Editing a Program 


It is quite possible that some mistakes may occur in the pro- 
cess of writing and entering a program. It would be very 
tiresome and time consuming to rewrite and re-enter a whole 
program. To correct mistakes the computer provides an 
editing facility. For this the user has to t 


ype LIST terminated 
by RETURN. The whole program appears on the VDU. If 


your program is lengthy then, by pressing the ‘CTRL & N’ keys 
together before typing LIST and terminating it with the 
RETURN key, you will control the line numbers. Now revise 
the program carefully and note down the mistakes, By pressing 
SHIFT, the user will get the next few lines of the program. 
Note down the mistakes. By repeating this procedure the entire 
program can be revised. 

After the complete Program has been 
mpt appears, enter those lines, followed b 
(Note that every line must be terminat 
key.) In this way the entire Program ca 

The BBC Microcomputer has got provision for sending 
messages about mistakes (bugs), errors of syntax, etc, if any, in 
the program, along with the line numbers during execution, 
making it easy to edit the relevant lines. 


The user may correct any typing mistake in a line by using 
the DELETE key before terminating that particular line with 
the RETURN key. 


To delete any line of the program, type the line number only 
and press the RETURN key. 


revised and the pro- 
y correct statements. 


ed by the RETURN 
n be edited. 


POINTS TO REMEMBER FOR 
EFFICIENT PROGRAMMING 


1. Master the rules of BASIC thoroughly, 
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. Programming is like mathematics—you must be 


logical, have a plan (flow chart) and attempt to carry it 
out. 


. Learn looping and branching thoroughly. 
. Use REM statements at all important points in your 


program, so that it is easy to detect errors and revise 
them at a later date. 


. Be a perfectionist. 
. Be careful about your use of syntax and extra space. 


Very small mistakes are enough to crash (i.e. ruin) your 
program. 


. Allow yourself enough time on the computer. 
. Don’t lose your temper when there is а bug in your pro- 


gram. Record its LIST on the printer and revise later 
when you are fresh. 


. Don’t program when you are tired. 
. Don't try to read the entire computer manual at one 


time. 


. Don't confuse the digit zero (0) and alphabet О. 
. Care should be exercised in handling IF...THEN, 


FOR..TO..NEXT and GOTO statements. 


EXERCISES 


. What are the names of the following symbols? 


(а) / (b) * (с) # (d) $ (e) ' ( " (в)! 


. Separate the string variable and numeric variable from 


the following: 
NAMES, N, NAME, N9$, RADIUS, P2, CODE$, PQ, 
S, Y$ and E$ 


. Write down the uses of the following system commands 


(a) “САТ (b) *DELETE (c) *DISC (d) *TAPE 


. Define each of the following terms: (a) PROGRAMM- 


ING LANGUAGE (b) PROGRAM (c) PROGRAM- 
MER 


. Write down the uses of the following statements: (a) 


RUN (b) LIST (c) LOAD (d) CLS (e) CHAIN 


. Point out the error in the following mathematical ex- 


pressions: (а) A+/B (b) P+7Q (c) (X*Y)/0.0 (d) 
(A= B*^2) (e) (X*(Y 2)) (0 M+ A$—7 
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(g) (P+ Q)*(— 3)^ 0.5 


7. What are the smallest and largest line numbersin a pro- 
gram? 


8. What are the following symbols called: (i) & (ii) > (iii)£ 
(iv) @? 
9. How do 


you delete a line from a given program? 
10. Write the names о 


f the following variables: (i) A$ (ii) N 
(iii) A%. 


| 


CHAPTER 5 


How to Talk with Your 
BBC Microcomputer? 


There are a wide range of instructions in the BASIC language 

used with the BBC microcomputer. We will start with the 

PRINT and LET statements. Type the following: 

> PRINT “HELLO! ТАМ MOHAN.” (press RETURN key) 
You will see the message 

HELLO! I AM MOHAN. 

Now you want to do some calculations which involve 
arithmetic operations. Simply giving instructions such as 
27-9 will not get any response. Try it. 
>7+9 (press RETURN key) 


Fig. 5.1 


No message will appear on the VDU, since the computer 
does not follow instructions in the above form. To do this 
calculation you have to give orderly instructions. Don’t forget 
to press the RETURN key after each line number. 

10 LET A=7 
20 LET B=9 
30 LET C= A+B 
40 PRINT C 
RUN 
Now you will see the sum of 7 +9 (which is obviously 16 !) 


displayed on the screen. 
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The above program can be written, as follows, and will also 
give the same output: 
10 LET A=7 
20 LET B=9 
30 PRINT A+B 
RUN " 

Here in line 30 PRINT А+В will find the sum of A and B 
and also print out the sum. 


A FEW PROGRAMS FOR YOU TO TRY 


Program 1 To calculate the area and circumference of a 
circle 

10 LET R2 10 

20 LET A= (РІ) *h^2 

30 PRINT “AREA OF THE CIRCLE= '';A;" sq units" 

40 LET C- 2*(PI) * R 

50 PRINT “CIRCUMFERENCE OF THE CIRCLE=";C;" units” 


To get the result of the program type RUN and press the 
RETURN key. Note: The value of РІ = circumference/ 
diameter (i.e. 3.1416...) 


Program 2 To print name and address on VDU > 
10 PRINT "LAXMINARAYAN'* 
20 PRINT “ " 


30 PRINT “ЗО GANDHINAGAR" 
40 PRINT "° "° 


50 PRINT "NAGPUR" 

The output will be the address in double s 
is the result of lines number 29 and 49 ins 
puter to leave blank lines. 


PRINT This statement is used to transmit numerical or str- 
ing data from the computer. 


pace. The spacing 
tructing the com- 


Use of Commas and Semicolons in the Print Statement 
Program 3 
Let us try this program 
10 LET A- 23.5 
20 LET B= - 657.2675 
30 LET C=21.32 
40 LET D= -5.23 
50 LET E= 0.5643808 
80 LET F2 45 
70 LET G=435.218769 


TALK WITH BBC MICROCOMPUTER 39 
В PRINT A,B,C,D.E.F,G 

In the above program line numbers 19 to 79 assign the value 
to numeric variables A,B,C,D,E,F and G. We will discuss the 
LET statement later in detail. The statement 89 will give the 
output of values A and D in a line and the rest, E, F and G, inthe 
next line, zonewise as follows: 

23.7 657.2675 21.32 019 
0.5643808 45 435.218769 
If the line number 89 is modified as follows: 
80 PRINT; A;B;C;D;E;F;G 
The output will be quite different. Try it yourself. 

The output will be in a single line without a gap. But the use 
of semicolons is very essential in line 30 of PROGRAM 1 since 
we want only one space gap in between two words or numbers. 
Remove the semicolons in line 30 of the PROGRAM 1 and see 
the difference. 


Program 4 
20 PRINT "НАМ"; 
30 PRINT "GOPAL"; 
40 PRINT “SINGH”; 
The output will be without any gap and all the print 
statements will appear together as: RAMGOPALSINGH 


Some Special Use of Print Functions 


Program 5 

10 LET A% = 3218.786 

2р PRINT A% Р 
The output will be 3218 (i.e. only the integer part of 

3218.786). 1 


Program 6 
10 VDU 74 

The output will be J (i.e. J followed, of course, by the prompt 
symbol >) since the AMERICAN STANDARD CODE (ASC) 
for J is 74. 


Program 7 
10 PRINT ASC (“Н”) 
The output will be 82, since the ASC for 82 is К. 


Program 8 


10 PRINT CHRS (82) 
The output will be R, since the ASC for R is 82. 
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Program 9 
10 LET A$- "SWATI* 
20 LET B$= "SHARMA" 
ЗО PRINT AS+ "" + BS 

The output will be 

SWATI SHARMA 
Program 10 
10 PRINT “TECHNICAL TEACHERS TRAINING INSTITUTE” 
20 PRINT ' ' “BHOPAL” 
30 PRINT ' * ' “PIN-462072" 

In line 29 there are two apostrophes, so BHOPAL will ap- 

pear two lines after the first. Similarly PIN — 469009 will ap- 
pear, leaving three lines after BHOPAL. 


LET Statement 


This statement is used to assi 
to a variable. 


Program 11 

1O LET A=25 

20 LET NS - "MOHAN LAL” 

30 LET А=А+5 

40 LET A=A/3 

5Ø LET PRINT N$; '' has д” mangoes. '* 
Explanation: 

Line 19 assigns the numerical value of A= 25 


Line 20 assigns the string value of N$=MOHAN LAL 
Line 39 increases the value of A by 5 


Line 40 divides the value of A by 3 
The output of 59 will appear on the VDU as 
MOHAN LAL has 19 mangoes. 


INPUT Statement 


This statement instructs the computer to wait for some data 
from the keyboard which is then used in a program. It thus per- 
mits one to enter the data while the program is running. 


It waits for values of the variables which are to be typed and 
are separated b 


one to further continue the Progr: 
Let us try these programs. 


Program 12 To converse 


with the computer ` 
10 PRINT “WHAT IS YOUR NAME"; 


gn а numerical or string value 


am. 
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20 INPUT NAMES 
ЗО PRINT “НОМУ OLD ARE YOU (ENTER NUMBER OF YEARS)": 
40 INPUT Y 
50 PRINT '' HELLO! "; NAME S; 
60 PRINT“ YOU АНЕ”; Y;" YEARS OLD " 
It is notable here that we may combine 16 and 26, also 30 
and 40 to obtain the same output: 
10 INPUT '' WHAT IS YOUR NAME “; NAMES 
30 INPUT “ HOW OLD ARE YOU (ENTER THE NUMBER OF YEARS)" ; Y 
By keeping 50 and 60 as they are we get the same output. 


Program 13 To calculate interest for a given principal, rate 
and time. 
10 INPUT "ENTER PRINCIPAL IN RS ”'; P 
90 INPUT " ENTER RATE OF INTEREST"; R 
30 INPUT '' ENTER TIME IN YEARS "; Т 
40 LET I- (P*R* T) /100 
50 PRINT “ INTEREST Rs= “1 5 
You may add a line to restart the same program. 
60 PRINT "ТҮРЕ RUN TO RESTART” 

Now remember that INPUT is the BASIC way of saying ‘put 
in: 

The INPUT statement will reject leading spaces and 
everything after a comma unless the entry is in quotation 
marks. 

100 PRINT "ENTER TWO NAMES SEPARATED BY A COMMA" 
110 INPUT PS 
120 PRINT РФ 

If you enter ANIL and SHARMA during RUN, the output 
of line 120 will be: 

ANIL 

If we use the INPUT LINE line statement we get everything 
that is typed, including spacing and commas. Try the follow- 
ing program. 

100 PRINT "ENTER A SENTENCE USING LETTERS OF THE 
ALPHABET AND COMMAs" 

110 INPUT LINE PS 

180 PRINT РФ 

During RUN if you enter ANIL, SHARMA AND ANURAG 
ARE GOOD FRIENDS. 

The output will be 
ANIL SHARMA AND ANURAG ARE GOOD FRIENDS. 

ANIL will appear in the print zone first and SHARMA on- 
wards will appear in the second print zone onward. Try this 
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program yourself on the computer. 


TAB Function 


The TAB function positions text along a line. This can be 
used with PRINT as well as INPUT statements. 

It has the following format: 

PRINT TAB (C,R) 
INPUT TAB (C, R) 
PRINT TAB (C) 
INPUT TAB (C) 

The two parameters have numeric values C,R representing 
the column and row numbers of the screen. In different 
MODEs the number of the column and row is different. In 
MODE 7 there are 49 columns and 25 rows. 

Consider the following statement: 

50 PRINT TAB (10, 12) "KENDRIYA VIDYALAYA" 


In the output of the above statement the first character K 
will appear in the 19th column and 12th row an 


d E will appear 
in the 11th column of the same row, and so on. 
EXERCISES 
1. If A=37, B=25. Prepare a program by using LET and 
PRINT statements to calculate, (a) A+B, (b) А-В (c) 
A*B, (d) A/B. 
2. 


Prepare a program by using the PRINT statement to see 
your name and address on the VDU. 
3. Prepare a program to calculate the are 
using the formula ((A + B)/2)*H, whe 
pair of parallel sides and H is the dist. 
4. Modify Program 1 by using the INPUT statement to 
allow the operation to enter a radiu 


s of your own choice, 
5. Prepare a program to calculate compound interest which 


gives the amount and CI for any desired value of P,R,T. 
6. Consider the following program: 
10 PRINT "JANUARY", "FEBRUARY", “MARCH”, 
“APRIL”, “MAY”, “JUNE”, “JULY”, “AUGUST”. 
What would the output be? 
Write a program in which the computer asks you which 
your favourite food is. The computer should reply ‘I also 
like’ (name of food given by you as operator). 


a of a trapezium by 
re А and B are the 
ance between them, 


"ған 


8. 


10 
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Enter this program 
10 PRINT "1419"; 
20 PRINT "327962"; 
ЗО PRINT "75"; 
40 PRINT “Б”; 
50 PRINT “250”; 
RUN it and see the output. 
Point out the error in the following statements: 
(а) LET R- 15*/3 
[b LET X=3*20, 15+2 
[c] LET Z=30 + YS 
(4) PRINT "ANANDKUMAR" 
(в) PRINT 'DEEPESH' 
[9 PRINT "ENTER RADIUS"; RS 
(9) INPUT "ENTER YOUR МАМЕ”; 
(h) INPUT TAB (60, 100) "SHRINIVAS RAGHAVAN’ 
What are the outputs of the following programs? 
(а) 10 LET A- 20 
20 LET B-5 
30 LET C=A-B 
40 PRINT C 
50 PRINT A/B 
60 PRINT (B/A) “С 
70 END 
[b] 10 PRINT "APPU KUMAR’ 
20 PRINT " "SPORT SCHOOL" 
30 PRINT " "ASIAD NAGAR” 


40 END 
(с) 10 LET A $ = "CHILDREN" 
20 LET B $= "ШКЕ" 


30 LET C $= ''SWEETS:' 
40 PRINT A $,B $,C $ 
SOPRINTAS+BS$+C $ 
60 PRINT А $;B $;C $ 
70 PRINT TAB (4,5) AS 
80 PRINT TAB (14,5) BS 
90 PRINT TAB (20,5) C $ 
100 END 
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Read, Data and Restore 


The LET and INPUT statements have limitations. It is very 
cumbersome to write each LET statement or enter each IN- 
PUT statement. If the data is very large, then READ and 
DATA are included in the program well in advance. Whereas 
the INPUT statement allows the user to enter the data during 
the program, which consumes a great deal of execution time 


and reduces the speed of the computer, the READ statement 
has the following format: 


READ A,B,Cl, A$, K$ 

Where A,B,C1,A$ and K$ are variables separated by 
commas. 

The variables listed in the READ statement have correspon- 
ding values in the DATA statement. The corresponding 
DATA statement of the above READ statement may be as 
follows: 

DATA 5,9,-7, JOHN, ANANDKUMAR 
Example 

10 READ Х,Ү,2,Р $,M $,B S, A1 

20 PRINT X,Y,Z 

40 PRINT P $,M $,B $, A1 

20 DATA 3,- 9,27.6,PAWANSINGH,KAVITA, BOMBAY, 5.236 

A DATA statement can be anywhere in the program but not 
after the END statement. Generally the DATA statement is 
placed just before the END statement so that it can be easily 
changed whenever it is necessary to do so. 

There is a one to one corres 
variables in the READ state 
statement. 

Try to run the followin, 
the outputs. 


pondence between the type of the 
ment and their values in the DATA 


8 programs on your Micro and note 


Program 1 
10 READ P,G,R.B $,N1 
20 PRINT P,G,R,BS,N1 


30 DATA 100, 2.525, 9786, NAGPUR, - 125 
40 END 


M 
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The output will be as follows: 
100 2.525 9786 NAGPUR 
-125 

Now change the above program by adding the following new 
lines: 
20 PRINT P,Q,R 
25 PRINT BS 
Note down the output yourself. 
Enter the following programs and note down the outputs: 


Program 2 

10 READ P 

20 READ G 

30 READ R 

40 READ BS 

50 READ М1 

55 PRINT B $,P,G,R,N1 
БО DATA 100, 2.5356 
70 DATA 9786 

80 DATA NAGPUR, - 125 
90 END 


Program 3 

10 DATA 2100, 42.5295, 9.786 
20 DATA NEW DELHI, – 125 

30 READ A, B, C, D$, NUMBER 
40 PRINT DS,A,B,C, NUMBER 
50 END 


RESTORE Statement 


Sometimes it is very useful to have several sets of data in one 
program. For this the user can use the RESTORE statement 
which enables the data pointer to be moved from one set of 
data to another. The keyword RESTORE resets the data 
pointer to the first set of data in the program. 


Program 4 To calculate the arithmetic mean. 


10 PRINT "ARITHMETIC MEAN" 

20C=1 

30 SUM=0 

40 READ D 

50 IF D= -9999 THEN 100 

60 LET SUM=SUM+D 

70 LET C=C+1 

80 GOTO 40 

90 REM * CALCULATIONS OF NUMBER OF DATA * 
100 LET N=C-1 
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110 НЕМ“ MEAN * 

120 PRINT “AVERAGE OF’; №; OBERVATIONS.'" 
130 PRINT ' ' “ARITHMETIC MEAN- "; SUM/N 
140 DATA 50.9,90.8,45,76.8,87.8 

150 DATA 65,72.5,54.7,12.6,76.4 

180 DATA 55,27,35.8,71.8,30.5, - 9999 

200 END 


RUN and see the output. 


You can change the DATA in line 140, 150 and 160 as 
required. 


Program 5 

10 READ A,B,CS 

20 PRINT "А=”;А: PRINT’ B="; B: PRINT "C$ - ",C$ 
30 RESTORE 

40 READ A1, B1 

50 PRINT "A1-B1-";A1- B1 

БО DATA 50, – 75, RAHIM 

70 END 


Note the output carefully. Remove line 30 and RUN the 
program again and see the difference. 


Fig. 6.1 


т 
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EXERCISES 


Write a program to find the average of the marks obtained 
by the students of your class. 
Write a program to print out the names of ten students. 
Write a program to find the sum of twenty marks given by 
a friend of yours. 
Find out the errors in the following programs and correct 
them so that they RUN properly. 
(а) 10 DATA 25,9,GOPAL 

20 READ AG,B,C 

ЗО PRINT AG,B,C 

40 END 
(b) 10 PRINT, А®,В,К® 

20 READ AS,B,KS 

30 DATA INDIA, 500, MOTHERLAND 
[с] 10 READ A,B,C 

20 DATA 200,400 

30.PRINT А-В 

40 PRINT B- A 

50 PRINT (2*A- B)^ 0.5 

50 END 
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Some More Hints оп How to Write 
and Enter a Program 


Multiple Statement in a Line 


In the BBC Microcomputer, more than one statement can 
be placed in a single line. This saves time and computer- 
storage space. The statements are separated by a colon (:). 
Example 
10 LET A- 20: LET B-25 : LETC- 2 
20 LET D- (A- B) *C: LET E-(B- A*C 
30 PRINT D : PRINT E 
CLS Statement 

It would be better to use CLS in th 


gram so that the computer executes its first task, which is to 
clear the screen of the monitor. The CLS statement means 
‘clear the screen’. 
REM Statement 


The REM statement stands for REMark. This provides an 
appropriate heading for the Program. It is particularly useful 
in long and complicated Programs. it cannot be read by the 
computer during execution but it appears in the LIST, so it 
helps when a user revises the Program subsequently, 
Program For CLS and REM statements 
10 CLS : LET P= 1500 : LET R= 10: LET T- 5 
20 REM * MATHEMATICS * 
30A- Р" ((1 + (R/100)^) 

40 LET Cl= A-P 

50 REM * PRINTING THE RESULT* 

600 PRINT "РАІМСІРА = ";Р 

700 PRINT “RATE % R 

ВО PRINT "ТІМЕ= ";T;" YEARS" 

90 PRINT "AMOUNT - Rs"; A: PRINT "COMPOUND INTEREST- Rs”; СІ 
100 END 

Replace line 10 by the INPUT statem. 
the difference. 

10 CLS: INPUT "ENTER PRINCIPAL IN Rs.’ 
INPUT' ENTER TIME IN YEARS"; T 


ents that follow and see 


ЗР: PUT" ENTER RATE 96 "В: 


е first line of every pro- 


> 
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Using a User Defined Key 


If the user has to type a statement repeatedly, say PRINT in 
the same program. There is a provision for this in the BBC Micro. 
Enter the following line before typing your program, and you 
will get this facility. 
*KEY0 PRINT press RETURN key 

Now when you press ff the word PRINT will appear on the 
monitor. Similarly, the user can define other keys in accordance 
with their needs. This will save time. 

The user can enter more than one word into the User Defined 
Key,such as: 

*KEY 2 SOUND 1, – 15,53,20 

Now let us assume that you have a program in MODE 2. If you 
want to see its LIST on the screen, you will find it very difficult to 
read the bold and wide characters in MODE 2. You have to give 
the following set of instructions: 

MODE7 press RETURN 
LIST press RETURN 

But there is an easier equivalent instruction that can be pro- 
grammed with the help of the User Defined Key as: 
*KEY 4 MODE 7:M LIST iM 

The “М” symbol can be obtained by pressing SHIFT and the 
key marked ‘i’ near the BREAK Key. 

In any program, you have to RUN it again and again. For this 
purpose you may program/define the User Defined Key. Let us 
take a key #5. 

*KEY 5 RUM iM 

Now whenever you press f5, your program will RUN. There 
is no need to press the RETURN key. 

You can even program the BREAK, cursor control keys and 
COPY key. Refer to the USER GUIDE for further detail. 


Renumbering the Line Statements of a Program 


Sometimes you need to insert 26 lines between line number 
40 to 50. It is quite difficult because there is only a 10 line 
space available between 40 and 59. For this purpose you have 
to RENUMBER the line numbers of your program by the key 
word RENUMBER. 

The command RENUMBER will renumber a program, giv- 
ing the first number 10, the second 29, the third 30, and so on. 
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The command RENUMBER 259 will renumber a program 
giving the first line 250, the second 260 and so on. 

The command RENUMBER 159, 5 will renumber a pro- 
gram giving the first line number 159, the second 155, the 
third 160, and so оп. 

Do not forget to LIST after the command RENUMBER. 
Procedure to Renumber 
l. Prepare/LOAD a program which is to be renumbered. 
2. Туре RENUMBER ` (press RETURN) 
3. Type LIST (press RETURN) 

Sometimes it is necessary to list a few lines to revise а lengthy 
program. Let us take for example lines 40 to 90. For this pur- 
pose follow the following steps: 

1. LOAD/prepare a program 
2. Type LIST 49, 99. (press the RETURN key) 

You will see all the lines from 40 to 90 on the screen. 

MODE 6 provides an interesting way of listing programs. 
Procedure: 

1. LOAD/prepare a program 


2. Type MODE 6 (press the RETURN key) 
3. Туре VDU 19,0,4,0,0,0 (press the RETURN key) 
4. Type LIST 


(press the RETURN key) 


This helps the user to read the listing clearly on the screen, 


You must try it. 
A FEW BASIC STATEMENTS AND THEIR 
ABBREVIATIONS IN THE BBC MICROCOMPUTER 
(The reader is advised to consult the USER GUIDE 
for greater detail) 


BASIC KEY WORD 


ABBREVIATION 

AUTO AU. 

CHAIN CH. 

DATA D. 

GOTO G. 

INPUT I. 

NEXT N. 

OLD О. 

LOAD 10. 

LIST I 
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PRINT p? 
RENUMBER REN. 
RESTORE RES. 


Users are advised to use these abbreviations to save time. 


= `=, с 
MICROCOMPUTER SYSTEM 
—— IA 


P 


deer 
1 


<— 


BANG, 
PE 


Fig. 7.1 
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To Carry Out the Same 
Instructions 


There are two sets of statements which allow the computer to 
perform the same task repeatedly. 

1. REPEAT.,....UNTIL 

Sm pO REN ШО 1 NEXT 


REPEAT........ UNTIL 


To use these statements, the user has to first decide which 


particular part of the program is to be repeated. 

Now here is a program in which the user has to guess a 
number from 1 to 5 which has already been guessed by the 
computer. If the user's guess is wrong, the computer allows him 
the opportunity of as many further attem 
arrive at the correct answer. 

Program 1 
10 CLS 


20 LET NUMBER= RND (5): REM* RANDOM SELECTION* 
3Ø REPEAT : НЕМ" THESE LINES ARE TO BE REPEATED * 
40 INPUT "ENTER YOUR GUESS FROM 1 TO 5"; GUESS 
50 IF GUESS- NUMBER THEN PRINT “GOOD! 


pts as he requires to 


KEEP IT UP '' ELSE PRINT 
“SORRY. TRY AGAIN” 
60 UNTIL GUESS = NUMBER 
70 END 
In line 59, IF.. THEN.. ELSE is a conditional branching 
statement. You will read about these statements in the coming 


chapters. Another program for you which prints о 
of 15 up to a maximum of 10 times. 
Program 2 

10 CLS 

20 LET A=15 

30 PRINT A 

40 REPEAT 

50 A=A+15 

60 PRINT A 

70 UNTIL A= 150 

80 END 


ut the table 


RR RENT ER 
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FOR.... TO.... NEXT Statements 
The above program can be written with the FOR....TO..... 


NEXT statement which also does the same task as the 
REPEAT....... UNTIL statement. 


Program 3 

10 CLS 

20 LET A=15 

30 FOR M=1 7010 
40 LET P=A*M 

50 PRINT P 

60 NEXT M 

70 END 


One more program for you to try: 


Program 4 
19 CLS 
20 FOR N=1 TO 20 
30 PRINT N; "НЕШО! | АМ BBC MICRO" 
40 NEXT М 
50 END 
With this statement one can write a sequence. Here is a pro- 
gram which gives the ARITHMETIC SEQUENCE of your 


choice. 


Program 5 
10 CLS 
20 PRINT “ARITHMETIC SEQUENCE" 
30 PRINT " h 
40 PRINT": PRINT “ ” : PRINT 
50 INPUT "ENTER THE FIRST TERM"; A 
60 INPUT "COMMON DIFFERENCE’; D 
70 INPUT "NUMBER OF THE TERMS TO BE PRINTED"; T 
ВО FOR N=1 TO T 
90 PRINT A; "',"; 
10 LET A- A« D 
110 NEXT N 
190 END 


NESTED LOOP 


When a loop FOR... TO... NEXT is placed within another 
loop then the first loop is known as a nested loop. One can put 
one or more loop(s) inside another loop. 

Insert line number 105 as under inthe PROGRAM 5 and see 
the effect. 
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105 FOR W=1 TO 300: NEXT W : REM * WAITING 
TIME* 

This line will allow the computer to count from 1 to 300. 
Here the computer will wait for approximately 3 seconds and 
then print the next term. So printing will appear slowly, term 
by term. 

While nesting the loops, care should be taken to see that one 
loop lies completely inside the other loop. As in arithmetic and 
algebra where you use brackets, avoid overlapping of loops. 
Also, the outer and inner loops cannot have the same running 
variables. 

Program 6 


10 REM * NESTED FOR....NEXT LOOPS * 
20FORP-1 T010 
ЗО НЕМ“ OUTER LOOP IN LINE 20 * 
40FORG- 


1 ТОР: REM INNER LOOP 
50 PRINT "*''; | 
60 NEXT G 


70 PRINT “ ”: REM * BLANK LINE * 
80 NEXT P 


90 END 


There is another loop in lines 40 50 & 60. It is completely 
within the outer one. 


FOR ..... TO 


HD STEP ... NEXT Statement 


The following program uses the FOR ... TO ... STEP ... 
NEXT statement and this will explain the purpose of the STEP 
with the FOR ... TO ... NEXT statement, 

Program 7 

10 CLS 

20 FOR N=2 TO 3.2 STEP 1 
ЗО PRINT "М", N^2", “мез” 
40 LET S= N^2 

50 LET C= N^3 

60 PRINT N,S,C 

70 NEXT М 

89 END 


The output of this program will be the table of the square 
and cubes of the numbers from 2, 2.1, 2.2, 2.3, .... upto 3.2. 

This tedious job of calculation is performed very easily and 
rapidly by the computer. 


Now change line 20, as in the above program, as follows: 
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26 FOR N=42.2 TO 43 STEP .05 


and see the result. 
EXERCISES 


Rewrite PROGRAM 2 by using the FOR ... TO ... 
NEXT statement. 
Prepare any program with the help of the REPEAT ... 
UNTIL statement. 
What are the differences between REPEAT ... UNTIL 
and FOR ... TO ... NEXT statements? 
Write a PROGRAM to find a number divisible by 15 and 
21 in the 200 to 800 range. 
Write a PROGRAM to calculate the sum of the first 25 
even natural numbers in two different ways. 
Explain each line of the following program: 

10 CLS : 

20 PRINT TAB (10,37) " TABLE FROM 5 to 15" 

30 REM OUTER LOOP STARTS 

40 FOR M- 5 TO 15 

50 PRINT TAB (5,5) "TABLE OF ';M 

60 REM INNER LOOP STARTS 

70 FOR № 1 to 10 

ВО PRINT M*N 

90 NEXT N : REM INNER LOOP ENDS 
10 OINPUTTAB (3,25)" Press space bar to continue’; AS 
110 NEXT M : REM OUTER LOOP ENDS 
120 END 
Now try this program on your microcomputer. 


56 BBC BASIC PROGRAMMING 


7. Correct the errors in the following program: 
[8 10FOR M=1 TO = 10 
20 PRINT "GOOD MORNING” 
30 NEXT K 
(b 10 FOR N= 10 TO Ə STEP 2 
20 PRINT N 
30 NEXT М 
(d 10FORK-5 TO 20 
20 ҒОНР-1 TO 10 
30 PRINT K*P 
40 FORW=1 TO 1000: NEXT W 
50 NEXT K 
60 NEXT P 


Prepare a program to find the sum of natural numbers 
from 1 to a given natural number by using 


[] FOR... ТО... NEXT 
[i] REPEAT ... UNTIL 


9. Inthe following FOR ... TO .. 
taken by the index variable 


FOR .. TO .. statements 


: Statements, write the value 


Index Values 


variable 
[] 90FORA-1 707 5ТЕР A 1,3,5,7 
[i] 130 FORK=19T03 STEP-2 
(4) 40 FOR Х-245 To 950 STEP 200 
(М) 70FORY-1.2 TO 2.4 STEP. D. 
(М 205 FOR delay- 1 ТОЗ 


(М) 32 FOR H9=5 TO 25 STEP 5 
10. 


Explain each of the Statements in PROGRAM 2. 
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Jumping and Branching 
Statements 


In a computer program the statements are generally executed 
sequentially in the increasing order of line numbers of the 
statements. But sometimes it is necessary to repeat the same 
set of instructions until a certain specific condition is satisfied. 
In such cases, the order of execution is controlled by jumping 
(forward or backward), branching and looping. You have 
already studied the looping statements, i.e. FOR .... TO .... 
NEXT and REPEAT .... UNTIL. 

Now for the jumping and branching control one should use 
GOTO n, ON N GOTO n, GOSUB and ON N GOSUB. 


GOTO n Statement 


This is one of the control statements which causes the com- 
puter to jump from one line number to another. Its format is 
GOTO n. 


Program 1 The following program prints out the multiple of 
8 and performs a backward jump. 

10 CLS 

20 LET A=8 

30 PRINT A; " "; 

40 LET A=A+8 

50 GOTO 30: REM * BACKWARD JUMP* 

60 END 


This program is endless. To come out of the program press 

the ESCAPE key. 
Program 2 The following program illustrates the: forward 
jump. : 

10 CLS 

20 LET A= 200 

30 LET B« 50 

40 GOTO 70: REM * FORWARD JUMP * 

50 LET A= A * A: REM * New value of A= 40000 * 

80 LET B= A * B: REM * New value of B= 10000 * 

70 LET P=A-B 
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80 LET G= А/В 
90 PRINT P,G,A,B 
100 END 
The output of this program will be 
150 4 200 50 
Now remove line 40 from it and the output will become 
30000 4 40000 10000 


Thus we see the program with line 40 will omit the execution 
of line 50 and 69. And the program without line 49 will execute 
line 59 onwards. 


Now slightly change the above program by introducing the 
following lines. 


40 GOTO 95 
95 PRINT “GOOD BYE! MR. USER" 
The output will be 
GOOD BYE ! MR. USER 
In this way it is clear that the control jumps from line 40 to 
line 95. Here the computer is not executing the section of the 
program between lines 40 and 95. 


ON N GOTO ... Statements 


These statements are used to transfer control to one of 
several lines of the program, depending on the value of a 
numeric expression. Its format is ON М GOTO nl,n2,n3 ... 


Неге N is used for option number and n1,n2 ... used for line 
numbers. 


Program 3 Ап option part of a program. 
10 CLS 

20 PRINT TAB(10) "OP TION" 

30 PRINT ТАВ(10)“---------” 

40 PRINT TAB (6,5) "CIRCLE. 
50 PRINT TAB (6,7) "SPHERE 
60 PRINT TAB (6,9) “CONE... 
70 PRINT TAB (6,11) "END........... 

В@ INPUT TAB (4,13) "ENTER THE OPTION"; N 
90 ON N GOTO 1000, 2000, 3000, 4000 


h O nD 


1000 CLS : PRINT TAB (10) "CIRCLE" 


1999 GOTO 10 
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2000 CLS : PRINT TAB (10) "SPHERE" 


2999 GOTO 10 
3000 CLS : PRINT TAB (10) “CONE” 


4000 END 


If N=1, then control is transferred to line number 2000 
which is the starting line of the CIRCLE program. If N=2,3,4 
then control is transferred to SPHERE, CONE and END, 
respectively. See flow chart on page 60. 


GOSUB Statement 


A GOSUB statement is used to take the computer control to 
the n line number from the program’s mainstream. Its format 
is 2 
GOSUB п where п is a line number. 

A RETURN must be used at the end of subroutine’s execu- 
tion to return the computer control from the subroutine to the 
main program. Do not use a GOTO statement to come out of 
the subroutines. 


Program 4 To explain the task of a subroutine 


10 CLS 
20 P= 100 
30 GOSUB 100 
40 PRINT “NOW | AM OUT OF THE SUBROUTINE 1.” 
5D P= 250 
60 GOSUB 200 
70 PRINT "NOW | AM AGAIN OUT OF SUBROUTINE ІІ.” 
80 PRINT "GOOD BYE" 
90 END 
100 PRINT “I HAVE ENTERED INTO THE SUBROUTINE FOR 2 SECONDS; 
105 FOR W=1 TO 2000 : NEXT W 
110 PRINT "VALUE OF P IS EQUAL ТО”; P 
120 RETURN 
20D PRINT "NOW | HAVE ENTERED INTO SUBROUTINE II 
FOR 3 SECONDS.” 
210 FOR Х= 1 to 3020: NEXT X 
220 PRINT "NOW THE VALUE OF P IS EQUAL TO"; P 
230 RETURN 
Study the output carefully. 
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FLOW CHART TO SHOW ON...GOTO...STATEMENT 


PRESENT OPTION 
ASK WHICH OPTION 


ON N GOTO 1000, 2000, 3000, 4000 


5 4000 
р š STOP 
1000 2000 3000 
CIRCLE SPHERE CONE 
MODULUS : MODULUS MODULUS 
` AGAIN 
Y Y Y 
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ON N GOSUB Statement 


It is similar to the ON N GOTO statement except that the 
control in ON N GOTO returns to the main program by 
GOTO whereas the control in GOSUB returns by the 
RETURN statement (not by RETURN key),as you have seen in 
PROGRAM 4. 

There is one alternative to the statement in line 99 in PRO- 
GRAM 3, which is as follows: 

90 ON М GOSUB 1000,2000,3000,4000 

In this case the control is passed to the subroutines indicated 
and then returned to the next line. 

A part of a program containing the GOSUB statement: 


100 GOSUB 1000 
110 PRINT "VOLUME' ; V 


990 RETURN 

1000 PRINT “СОМЕ” 

1010 INPUT "ENTER THE RADIUS AND HEIGHT OF A CONE"; R,H 
1080 LET V= РІ“ (R“2) * H 


1500 RETURN 
Explanation 

100 the control transfers to line 1000. Then the computer 
executes the line numbers from 1000 to 1500 in accordance 
with the statements given in these lines. In line number 1599 
the control returns to line number 119, which is the first state- 
ment after GOSUB, and then the computer proceeds till the 
end of the program is reached. 

Some other uses of ON ... GOTO and ON ... GOSUB are 
given in the following examples: 


20 ON ERROR GOTO 5000 
80 ON ERROR PRINT “THE COMPUTER HAS NOT FOLLOWED YOU." 


30 ON ERROR GOSUB 9000 
50 ON ERROR OFF : REM * Without GOTO AND GOSUB * 


The user is advised to use these statements in his program. ; 
EXERCISES 


1. Сап а subroutine contain more than one RETURN 
statement? Explain. 
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2. Prepare a program in which backward and forward 
jumping are involved. 

3. Сап a control be transferred out of a subroutine by means 
of a GOTO statement? 


4. What are the main differences between ON ... GOTO and 
ON ... GOSUB statements? 


5. Prepare a program to solve two/three simultaneous linear 


equations along with a quadratic equation by using 
subroutines. 


6. Point out the errors and correct the following statements: 
[i] 130 GOTO 60,80,90,230 
[i] 200 ON P GOTO 189,30,200,300 
[ii] 40 ON Z GOTO 50,100,100,150,200 
[iv] 120 ON K GOTO 100;20;30;400 


7. Locate the error(s) in the following program; 
50 GOSUB 275 


205 A=B+C+D 

23р GOTO 10 

280 RETURN 

990 RETURN 10 

8. The abbreviations of the statements are listed below: 

Statement Abbreviation 
GOTO G. 
GOSUB GOS. 
RETURN R. 


Prepare a program by using the above abbreviations. Does it 
work? 
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Conditional Branching 


IF ... THEN Statement 

The IF ... THEN statement is used to carry out conditional 
branching in which control will be transferred to the next 
statement; otherwise, the statement following the IF ... THEN 
line number will be executed next. 


ч 
968 thie 


Fig. 10.1 


Program 1 А program for the geometrical sequence (G.P.). 
19 CLS 
20 LET A- 5 : REM * 5 is the first term * 
30 LET N= 2 : НЕМ“ 2 is the common ratio* 
40 PRINT A ; 7; 
50 LET A- Д" М 
60 IF A <= 320 THEN 40 
70 PRINT “........ ye 
80 END 
The output of the program will be 
5,10,20,40,80,160,320, .......... 
Line 60 may be written as 
Б@ IF A <= 320 THEN GOTO 40 
It is to be noted here that GOTO in line 60 is optional. 
The following is a part of the program where the computer 
asks the user to restart the program. 
300 INPUT "DO YOU WANT ANOTHER RUN" ; AS 
310 IF АФ- " YES" THEN 10 
320 IF AS = "NO" THEN 340 
330 PRINT "REPLY UNACCEPTABLE” : GOTO 300 
340 END 
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making. Let us try the following program to solve a quadratic 
equation. 


Program 2 
10 CLS : PRINT ТАВ (10) “QUADRATIC EQUATION” 
20 INPUT “ENTER COEFFICIENT OF Х^р" iA 
ЗО INPUT “ENTER COEFFICIENT OF X" ; B 
40 INPUT “ENTER CONSTANT TERM”; С 
50 LET D- B^2- 4*A*C 
60 IF D < 0 THEN PRINT "МО REAL ROOTS” : GOTO 20 
70 IF D > =Ø THEN PRINT “REAL ROOTS" 
BO LET X= (- B+ SƏR(D)/2*A 
90 LET X2 (- B- SƏR(D)/Ə*A 
100 PRINT "X1 =";X1 
110 PRINT “X2="; x2 
120 END 
In line 70 after THEN the line number is not given but prin- 
ting work is assigned to the computer. 
IF ... THEN is also used with more complicated conditions 
involving the statements NOT, OR and АМР: for example: 
20 IF NOT (X —10) THEN PRINT "X NOT 19" 


Now another use of the IF ... THEN statement with an OR 
condition, 


Program 3 


10 INPUT "ENTER RADIUS & HEIGHT OF A RIGHT CYLINDER" ; R; H 
8DIF R< 0 OR H< ОТНЕМ PRINT “NOT POSSIBLE" : GOTO 1D 

30 LET V= РІ (R^8)*H 

40 PRINT "VOLUME- " ; V 

50 END 


Here is a program which prints a number divisible by 13 and 
23 within the range 1 to 1000. The IF ... THEN statement in- 


а 
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cludes the AND condition. 


Program 4 
100 LET D1= 13 : LET 02= 23. 
110 FOR N=1 TO 1000 
190 REM * DIVISION TRIAL * 
130 LET K1 = ND1 : LET K2= N/D2 : REM * LET is optional in BBC * 
140 IF INT (K1)= K1 AND ІМТ(КӘ)- КӘ THEN PRINT М 
150 NEXT N 
160 END 
The output will be 299,598 and 897 
There is one more IF ... THEN ... ELSE conditional state- 
ment for example: 
1210 IF K=S THEN PRINT "EQUAL" ELSE PRINT “МОТ EQUAL” 


Program 5 

10CLS 

20 PRINT TAB (1,5) "DO YOU WANT ADMISSION TO THE SCHOOL" 
30 INPUT РФ 

40 IF P$= “МО” THEN 60 ELSE GOTO 70 

60 CLS: PRINT TAB (1,5) “ITS GLAD TO KNOW THAT" : GOTO 90 
70 CLS: PRINT TAB (1,5) CHR $ (141) "WELCOME" 

ВО PRINT TAB (1,8) CHR $ (141) "WELCOME" 

90 END 


EXERCISES 


= 


Write a program to find the sum of the integers 1 to 100. 
2. What is the output of the following program? 
10 LET A- 3 
20 IF A=5 OR A=9 THEN 40 
30 PRINT A 
40 A=A+1 
50 IF A< 25 THEN 20 
60 END 
3. The following program is to print out in reverse order the 
numbers from 15 to 1. 
10 FOR N= 15 TO 1 STEP -1 
20 PRINT N 
30 NEXT N 
40 END e 
Rewrite the above program, using the IF ... THEN 


statement. i r 
4. Some IF ... THEN statements are given below. Which 


statements are incorrect and why? 
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А) 40 IF > = 100 THEN 60 

В) 20IFN*3 > -400 GoTo 80 

С) 75 IF P< > 10 THEN Q 

D) 125 GOTO 20 IF R=5 

E] IF A $= ''YES'' THEN END 

FJ IFX+Y < =T THEN 90 

б) IF B< = A/2 THEN PRINT "LESS OR EQUAL" 
Analyse each line of the following program: 
10 CLS : REM * DIVISIBILITY OF 5* 
20 FOR N= 5 TO 1000 

30 LET D= М5 

40 IF INT(D)= D THEN PRINT N "DIVISIBLE BY 5" ELSE PRINT N' IS 


NOT DIVISIBLE BY 5”: FOR wait= 1 TO 500: NEXT wait 
50 NEXT N 


60 END 

Test this program on your Micro. 
Prepare a program to test general knowledge. 
Explain each statement of the following program: 


10 CLS: PRINT “БІН, THIS IS A AGRA HOTEL 10 CLS: COUNTER 
SERVICE” 
20 INPUT “ОО YOU WANT A ROOM"; Ys 
` 30 IF Y $="Y" THEN PRINT “SINGLE BED OR DOUBLE BED" 2 
GOTO 100 
40 IF Y $=""N" THEN GOTO 200 
100 INPUT AS 
110 IF A $= "SINGLE" THEN PRINT "NO SINGLE BED'S ROOM IS 


AVAILABLE "ELSE PRINT" YES, WE HAVE A DOUBLE BED'S 
ROOM FOR YOU SIR" : GOTO 30D 


90D PRINT "WHAT CAN І DO FOR YOU, SIR" 
300 END 


Enter this program and try to RUN, 


RUN PROGRAM 5. Study the output of lines 79 and 89. 


ws 


CHAPTER 11 


Counting and Splitting 
the Characters 


LEN and MID$ Statements 


The LEN and MID$ statements are used to count and split the 
characters of a word/sentence respectively. 

LEN: To count the number of the characters in a word or 
sentence. 


Program 1 А program to count the number of characters 
10 CLS: REM * CLEAR THE SCREEN* 
20 PRINT “ENTER А WORD, COMPUTER WILL COUNT THE NUMBER OF 
THE CHARACTERS IN IT” 
30 INPUT AS 4 
40 LET C= LEN (AS) . 
50 PRINT '' THE NUMBER OF THE CHARACTERS IN THE GIVEN WORD IS= 
б 
; 
60 END 
Explanation of line 40: the computer will count the number 
of characters in the string A$ and assign the numeric value to 
the variable C. : 
MID$: To copy part of one string into another string. 


Program 2: 

10 NAME $= "DEEPAKKUMAR" 
29 B $= MID S(NAMES,5,3) 

30 C $= MID S(NAMES,2,6) 

40 D $= MIDS (NAMES, 10, ә) 
50 PRINT B $.C $,D $ 


60 END 

Explanation 

Line number Description 

10 clear the screen 

90 B$ will be the set of 3 characters from the 
5th character onwards іп NAMES string. 

30 C$ will be the set of 6 characters from 2nd 


character onwards in NAME$ string. 
40 D$ will be the set of 2 characters from the 
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tenth onwards in NAME$ string 


50 Print out the B$, C$ апа D$ 
60 Епа 
RUN this program and you will see the foll 


lowing output: 
AKK EEPAKK AR 


LEFT$ AND RIGHT$ 


These two statements are also used t 
and right respectively. Its format is 
LEFT$(< string variable >,< number >) 
КІСНТ%< string variable >, < number >) 
Program 3 
10А $= "RAJIVGANDHI* 
20BS= LEFT (A $,5) 
30 C $= RIGHT S (А 6,6) 
40 PRINTCS 
50 PRINT BS 
60 END 
The output of the program will be 
GANDHI х 
RAJIV 
COUNT Statement 
It is a statement which coun 
using the PRINT statement. 
Program 4 A program to 
10 CLS 
20 A= 200 
30 REPEAT PRINT "X" 
40 UNTIL COUNT- A 


Let us try this program on your Micro. 


о split a word from left 


ts all the characters printed, 


print out exactly 200 ‘x’ 


EXERCISES 


l. Write a program which can 
reverse order of letters. 

2. Explain each of the lines in the following program: 
10 CLS 
20 PRINT "ENTER THE TWO. INITIALS OF YOUR NAME” 
30 PRINT “THEN LEAVE SPACE 
40 PRINT “ENTER YOUR SURNAME" 
SOINPUT; NS 
60 B= LEN(N $) 


Print your name in the 
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70FORN-1 ТОВ 
80 X $= LEFT S(N $.3) 
90 Y $= RIGHT (NS,B- 3) 
10028- XS" "+ Y $: НЕМ" ADDING STRING * 
190 END 
Now enter this program and RUN. Note down the output. 
3. Write down the uses of the following statements and 
prepare 
MID S, LEFT $, COUNT. RIGHT $ and LEN 
4. . Replace lines 20 & 30 in PROGRAM 4 as follows: 
20А-20 
30 REPEAT PRINT "INDIA"; 
Note the difference between this new program and PRO- 
GRAM 4. Give a reason for this difference. 
5. Correct the error(s) in the following program, if any: 
10LETA- 20 
20 LET B=A/10 
30 LET X $= HINDUSTAN 
40 X= LEN(X S) 
50 P., (А-Х) 72 
60 END 


CHAPTER 12 


Built-in Library Functions for 
Mathematical Calculations 


The ВВС microcom; 
facilitate mathematical 


here. 


puter has some built-in library functions to 
calculations. Some of them are listed 


SOME SPECIAL MATHEMATICAL STATEMENTS 


Functions 


ABS 
ACS 


ASN 
ATN 
COS 
COT 
DEG 
DIV 
EXP 


INT 
LOG 


LN 
MOD 
PI 

PI 


RAD 
RND 


SGN 


Format 
Y= ABS(X) 
Y= ACS(X) 


Y = ASN(X) 
Y-ATN(X) 
Y-COS(X) 
Y=COT(X) 
Y - DEG(X) 
Y=A DIV X 
Y=EXP(X) 


Y-INT(X) 
Y-LOG(X) 


Y-LN(X) 


Y-A MOD(X) 


Y=SIN(PI/3) 
A-PI*R^2 


Y =RAD(x) 
Y - RNI(X) 


Y-SGN(X) 


To Calculate 
Absolute value of X 
Cosine inverse of X (Y is in 
radians) 
Sine inverse of X (Y is in 
radians). 
Tan inverse of X (15 in 
radians) 
Cos of X. X is in radians 
Cot of X, X is in radians 
X radian in degrees 
Integer part of A/X 
Exponentiation of X to the 
base e. 
Integer part of X 


Logarithm of x to the base 
10. š 


Natural log of X 
Remainder of A/X 

Here PI radians = 180 
degree. 

Here PI used to calculate 
area (PI = 29/7 

Radian of x degree 
Random value of a natural 


Signum function of X. 
SGN(X)= ABS(X)/X for all 
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values of X< > 0 


SIN Y =SIN(X) Sine of X. (X is in radians) 

SOR с Y=SQR(X) (Positive) square root of X. 

TAN Y=TAN(X) Tangent of X. (X is in 
3 radians) 


Im all the above functions, the value of X.is real. In the case 
of the trigonometric function, X is always taken in radians, 
whereas in case of inverse trigonometric functions the value of 
Y is always calculated in radians. 

Now let us try out the following statements, one at a time, 
and note down their outputs carefully. 

Enter a line, press RETURN and then RUN. 

10 A= ABS (- 25) : PRINT А 

20 B= ABS (2563.67): PRINT B 
The output of the above line statements will be 25 & 2563.67. 
Now try these programs: 


Program 1 
10 C- RAD (57) 
20 D= SIN (РҮ?) 
30 E= SIN (PV4) * COS (Р/4) 
ар F= SOR (100) 
50 G= DEG (PJ) 
60 H- INT (56308.1234) 
701- 425 DIV 30 
80 J- LOG (1000) 
90K-27 MOD 12 
100 L= RND(2) 
110 PRINT C.D,E,F,G,H,l,J,K,L 
180 END 
Try to thoroughly understand these functions. 
Now. let us figure all the output without running a program. 


Program 2 

10 P= SIN (P/4) 

20 G- ASN (1) 

30 R= LOG (100) 

40 S- RND (2) 

50 T= SQR (441) 

80 PRINT P.G,R.S,T 

70 END j 
Run this PROGRAM on your Micro. 


Program 3 А program to test 1.0. 


10 CLS: PRINT “IG TEST" 
20 LET P= SIN (PI/) : Q= ASN (1): R= LOG (100) : S= SGR (44100): 
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T= DEG (Р/2) 

30 INPUT "SIN (PV/2)- :A 

40 IF A= P THEN PRINT "CORRECT" ELSE PRINT "WRONG" 
50 INPUT "SIN INVERSE OF 1-”:В 

80 IF B= Q THEN PRINT "CORRECT" ELSE PRINT "WRONG" 
70 INPUT “LOG OF 10Д=”; C 

80 IF C= R THEN PRINT "CORRECT" ELSE PRINT "WRONG" 
90 INPUT “SQUARE ROOT OF 4410p": D 


100 IF D= S THEN PRINT "CORRECT" ELSE PRINT "WRONG" 
110 INPUT "DEGREE OF P/2 RADIANS =":E 


120 IF E= T THEN PRINT “CORRECT” ELSE PRINT "WRONG" 
130 END 


EXERCISES 


1. What are the purposes of ASN, RND and sin functions? 
2. Write a program оп guessing numbers from 1 to 5 by using 
the RND function. 


3. Prepare а program to calculate the area and volume of a 
cylinder. 


4. Write a program to calculate simple interest upto two 
decimal places. 


Explain the statements given in PROGRAM 1 in writing. 
Rewrite PROGRAM 8 so that the computer represents the 
user's score. 
7. Point out the error(s), if any, 
following statements. 

(1 Y- SGR(-25) 

[i] KS= SIN (P/2) 

(ii) 2-25 Div 50 

[iv] Numbers RAND (10) 

[V] Values sin (abs (- 25/50)) *COS (РІ“0) 
(М) I= ASN (SIN(pi) 
(Мі) sum=30 MOD 45 
[vii] T= ATN(1) 


an 


and correct them in the 
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Dimensions and Defined Functions 


The importance of a computer increases when large amounts 
of data are to be conveniently processed. The LET, READ, 
PRINT and INPUT statements are not very convenient in 
handling a large amount of data. Let us take the example of a 
bank which has a list of cheques. Suppose the amounts of the 
cheques аге 2500, 1200, 350, 780, 950, 3500, 65000..., etc.; 
each element of this data can be named in the same order as 
А(1) = 2500, A(2)—1200, А(3) = 350, А(4)- 780, A(5) — 950, 
A(6) = 3500, A(7) — 65000..., etc. 

Thus you can have variables A(1), A(2), A(3)... and so on 
and in general, A(I). I is called the subscript and A(I) is called 
a single subscripted variable. The value of I can be assigned by 
the FOR ... TO ... NEXT loop. This makes it very easy to han- 
dle a large amount of data. 

Subscripted string variables can also be used. Let us take a 
list of teachers who teach Class XI in your school. Suppose 
the list reads: Mrs DASGUPTA, Mr SUNIL, Mr GHULAM- 
NABI, Mr MANOHAR and Mr HARINARAYAN. Then 
each element of this array can be named in the same order as: 
A$(1)=Mrs DASGUPTA, A$(2)=Mr SUNIL, A$(3)= Mr 
GHULAMNABI ..., etc. 

Let us take a program which involves the above subscripted 
string variables: 


Program 1 
5 DIM N $ (Ü) 
40 PRINT "THE COMPUTER READS THE SUBSCRIPTED STRING VARIABLES” 
20 FORI=1 TOS 
30 READ N 8 () 
40 PRINT N $ (7 
50 PRINT" * THIS WAS NAME"; 1: PRINT "' "" 
60 FOR delays 1 TO 1000: NEXT delay 
70 NEXT | 
80 DATA Mrs DASGUPTA, Mr SUNIL, Mr GHULAMNABI, Mr MANOHAR, 
Mr HARINARAYAN 
90 END 
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The output will be as follows: 
Mrs DASGUPTA 
* THIS WAS NAME 1 


Mr SUNIL 
* THIS WAS NAME2 


Mr GHULAMNABI 
* THIS WAS МАМЕЗ 


Mr MANOHAR 
* THIS WAS NAME 4 


Mr HARINARAYAN 
* THIS WAS NAME 5 


You usually come across a X1 + X9 + X3 + Х4-.. - X10 
type of expression in mathematics. To solve this, see the follow- 
ing program. 

Program 2 То calculate the arithmetic mean. 

10 LET S=0: DIM X (99) 

20 FORN-4 TO 10 | 
30 READ X (N) 

40 LET S=S+ X (N) 

50 NEXT N 

80 LET M- S/N 

70 PRINT "THE ARITHMETIC MEAN= “м 


80 DATA 50,27.80,20.1 9,13,80,100,15,81 
90 END 


ame result if he/she is not using a 
in line 30 and 40. But he cannot ex- 


cannot be used again wi 
other parts of the same program. 


Let us examine the following Program carefully and try to 
RUN it on the computer, 


Program 3 To calculate the mean and standard deviation. 
5 DIM X (19), Y (19) | 
10 РОВ 1= 1 TO 10 
20 READ X (1 
З@ NEXT | 
405-0 


50 FOR Ј= 1 TO 10 
80 LET 8- 84 Y (J) 
70 NEXT J 

80 М= 5/10 

9Ø LET D« 0 
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100K-1 17010 

110 D= D+(Y (K)- М)^2: НЕМ" SUM OF THE SQUARE OF THE DEVIATIONS. 
120 NEXT К 

130 SD- SQR (0/10 

140 PRINT "THE MEAN IS"; M 

150 PRINT "THE STD DEVIATION IS"; SD 

160 DATA 20,15,25,30,28,12,10,18,24 


170 END 

Explanation 

Line Number 

5 Store 10 locations each for X and Y 

10,20,30 Read the data and assign the values 

50,60,70 Find the sum of Y(1), Y(2), upto Ү(10) 

80 Calculate the mean 

106,119,120 Calculate the mean of the squares of the 
deviations from the mean 

130 Calculate the standard deviation 

140,150 Print the result 

160 Data 

170 End 


DIM Statement 


Normally the computer reserves 19 storage locations for each 
variable name, but.if more than 10 values are to be subscripted 
to a variable then the computer is to be directed to do this by 
the key word DIM, which stands for the word DIMensions. 
DIM is used to tell the computer to open enough memory loca- 
tions to accommodate each element of a subscripted variable. 
Its format is 
DIM < variable name > (assigned integer number) 


Example 
DIM A$ (16) Sixteen locations for string variables 
DIM N(20) Twenty locations for numeric variables 


The following program is to find out the total pocket expen- 
diture of the 20 students of a class in a day. 


Program 4 
10 DIM 5 (20) 
20 LET T=0 
30 FOR N=1 7010 
40 READ 5 (М) 
50 LET T= T+ S (N) 
60 NEXT N 
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70 PRINT “TOTAL EXPENDITURE ІМ Rs"; T 
80 DATA В,5,3,2,0,6,0,2,9,8 
90 DATA 6,3,8,5,4,7,0,1,9,3 

100 END 

Run the above program. 

The following program is to calculate the expenditure of 19 
students in a week. In this program different variables and 
subscripts for a single DIM statement, viz. variable name D 
for days, S for students and T for total, are involved. In DATA 
the expenditure is given in Rs. 


Program 5 
10 DIM D (7), S (10, Т(10), X (10) 
20 FORN=1 TO 10 
30 LET T(N= 0 
40 NEXT N 
50 FOR 0-1 TO 7 
80FORS-1 TO 10 
70 READ X (S) 
BOLETT(S9-T(S«-X(S - 
90 NEXT S 
100 NEXT D 
110FORS-1 TO 10 
190 PRINT T (S); : PRINT“ ""; 
130 NEXT S 
140 DATA 2,4,5,0,6,0,7.8,4,9 
150 DATA 9,7,8,9,5,7,6,0,8,3 
160 DATA 4,8.8,7,9,7,8,5,7,0 
170 DATA 6,7,5,3,3,0,9,8,7,4 
180 DATA 3,8,7,0,5,4,3,2,1,8 
190 DATA 7,6,9,4,0,4,3,2,5,6 
900 DATA (,5,9,7,5,3,1,0,3,0 
210 END 
Enter the above program and note down the output. 
. Program 6 
10 DIM A (15) 
20 REM * SUBSCRIPTED VARIABLES * 
ЗО FORI-1 TO 15 
40 LETA()=2*1 * 
50 PRINT А() 
60 NEXT I 
70 LET T2 A(5) + А(10 + А(15) 
ВО PRINT “бит of the 5th, the 10th and the 15th subscripted data is '';T 
90 END 
There are five classes in a school. Each class has four sections 
of strengths given in the following table. 
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CLASS A B C D 
XII 30 40 29 32 
XI 40 36 38 30 
x 37 35 34 32 
IX 32 39 33 29 
VIII 41 41 45 28 


The following program declares a two-dimensional array 
and PRINTS it out in a tabular form. 


Program 7 
10 DIM T(5.4) : НЕМ“ 2:DIMENSION ARRAY* 
20 FOR N=1 TOS 
30 FOR М-1 704 
40 READ T(N,M) 
50 PRINT T(N,M): 
80 NEXT M 
70 NEXT N 
ВО DATA 30,40,29,32 
90 DATA 40,36,38,30 
100 DATA 37,35,34,32 
110 DATA 32,39,33,29 
120 DATA 42,41,43,28 
130 END 
RUN this program and then modify it so that it also prints 
classes. 
Can you guess the output of the following program? Run the 
program and verify it yourself. 4 


Program 8 
10 DIM A S (4,5) : REM * 2-DIMENSION ARRAY * 
20 REM * READING THE DATA * 
30FORI-1 TO 4 
40 FOR J=1 TOS 
50 READ А (I,J) 
80 NEXT I 
70 NEXT J 
80 REM * PRINTING * 
80 ҒОН М-1 TO4 
100 FORN=1 Т05 
110 REM * PRINTING “ 
120 PRINT А 6 (M,N) 
130 NEXT N 
140 PRINT " " 
150 NEXTM 
160 DATA AB,BC,CD, DE, EF,FG, GH, HI, IJ, JK, KL, LM 
170 DATA MN, NO,OP,PG,GR.RS,ST, TU, 
180 END ` 
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User Defined Function 


This function is used to create any new function (other than 
those given in Chapter 12) for easy programming. The key - 
word DEF provides an easy way of achieving this. Its format is 
DEF FNa(b)=Expression . . 

Where a stands for the name of a function denoted bya 
letter of the alphabet. 
b stands for the argument of the function which 
is a variable in the expression. 

Examples of some of the user defined functions are: 

() DEF FN A (X)=X^2-2*X+7 

(ü) DEF FN B (X,Y)=X^2+2*X*Y+Y^2 
(ii) DEF FN C (P,Q) = SQR (ABS (P- Q)) 
(i) DEF FN X (P,R,N)=P* (4 — R/100^N 
(vV DEF FN A (P $,Y)= RIGHT $ (P $.Y) 

The variables used in the bracket on the left hand side must 
be of the same type as used on the right hand side. 

DEF FN А(Х)=В^2—34*В is clearly wrong. The correct 
way of using the above function is 

. DEF FN A(X)-X^2-— 84*X 
or, DEF FN A(B)- B^2-— 34*p. 

Here you are given some programs based on the DEF func- 
tion statements. You should try them on your computer and 
then prepare some other programmes of a similar kind. 


Program 9 To calculate the escape velocity of a rocket. 
10 LET G- 8.87*10^(-11): REM gravitational constant 

20 LET M= 6.0* 10^24: REM mass of the earth 

30 LET Н-6.4%1076: REM radius of the earth 

40 DEF FNV (M,R )= SQR (2* G* М/Н) 

500 PRINT "ESCAPE VELOCITY 16"; FNV (M,R) 

600 END 


RUN this program on your Microcomputer and note down 
the output. š t | 
The user can also use function within the function by using a 
defined function. Here is a program for you to test. 
Program 10 
10 DEF FNS (A,B)- д^2 9*A'B«B^2 
20 LET P= FNS (5,4) 
30 LET G- FNS (P,3) 
40 LET R- FNS (9,2) 
50 LET Х= FNS (FNS(FNS(4,3), 2), 3) 
Б@ PRINT "THE VALUE OF P=FNS (5,4) IS" p 
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70 PRINT " ** 

80 PRINT “THE VALUE OF Q= FNS (P,3) IS"; G 

90 PRINT “ ” 
100 PRINT “THE VALUE OF R= FNS (9,2) IS";R 
110 PRINT "" 
120 PRINT “THE VALUE OF X= FNS (FNS (FNS (4,3),2)3) IS';X 
130 END 

In this way, as you have seen, a long expression can be us- 

ed with the help of the DEF statement. Also, a built-in 
mathematical function can be used within the DEF function. 
Include the following lines in the above program and RUN. 
130 LET Y=FNS (SIN (РІ/2),5) 
140 PRINT "THE VALUE OF Y = FNS (SIN (PI/2),5) IS"; Y 
150 END 


Program 11 To calculate the value of a function. 
10 PRINT "USER DEFINED FUNCTION” 
20 PRINT ' “DEF FNA (Х,Ү,2)= X^7- Y°6 + 8*2^5- 3*X*Y*Z + 8* 
(Х^2)*Ү+4*Ү^З-8*2^2" 
30 DEF FNA(X,Y,2)= X*7-Y°6+3*Z°5-3*X*Y*Z+2* 
(X^ 8)* Y«4*Y^3-8*2^8 
40 PRINT ' ' "THE VALUE OF THE FNA (2,4,3) IS"; ЕМА (2,4,3) 
50 END 
You are advised to evaluate the function given in the above 
program for the values X —2, Y = 4 and Z = 3 by using a pen and 
*paper. 
Now enter the program in your computer and check your 
answer. 


Program 12 
10 PRINT "This program handles Ше strings by using DEF function." 
15 PRINT "' '': PRINT" " 
20 DEF FNT(ES)=" ‘The capacity of a body to do work by virtue of its" + ЕФ+ "' 
is called" 
30 READ M $.K $,S $,P $ 
40 PRINT FNT (M $);K $: PRINT '' " 
50 PRINT FNT (S $);P $: PRINT“ " 
60 DATA MOTION, KINETIC ENERGY, POSITION, POTENTIAL ENERGY 
70 END 
The output of the above program will be: 
This program handles the string variables by using the DEF 
function. 
The capacity of the body to do work by virtue ofits MOTION is 
called KINETIC ENERGY. 
The capacity of the body to do work by virtue ofits POSITION is 
called POTENTIAL ENERGY. 
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In a similar way, the reader may use the DEF function to 
prepare some more programs of his/her own choice. 


Define Procedure 


The facility of defining a procedure is available in the BBC 
micro. It is similar to the subroutines: however, the expression 
is slightly different from a subroutine. 

As you know, the keyword DEF is used to inform the com- 
puter that a ‘function’ is going to be defined. Ina similar man- 


ner a user can define a ‘procedure’ by the key word DEF PROG 
< name of a procedure >. 


Example DEF PROCgame , DEF PRO 
DEF PROCmean ; etc, 

Once the computer has be 

ists, it can be called by name an 


Cmenu , DEF PROCa, 


A procedure allows a user to use the local variables which are 
defined by the statement LOCAL. A local vari 


variable may be used 
without difficulty. On the other hand, 
not declared as LOCAL will be availabl 
(i.e. in the remaining parts of the pro, 
Program 


10 CLS : PRINT TAB (10,2) "MASTER MIND" 
20 PRINT TAB (5,5) "HELLO! 1AM AT YOUR SERVICE." 
30 PRINT TAB (10,7) "OPTION" 
40 PRINT TAB (5,9) "GAME .....1" 
50 PRINT TAB (5,10) "MUSIC ...2" 
80 PRINT TAB (5,11) “QUIZ ...... 3" 
70 PRINT TAB (5,12) "FINISH ...4" 
BO' "ENTER YOUR OPTION (1,2,3 or 4)”; 
ЭР INPUT М 
100 IF N > 4 THEN SOUND 1,- 10,20,5 : GOTO 80 
110 IFN< @ТНЕМ SOUND 1,—10,20,5 : GOTO 8D 
180 IFINT(N) & > N THEN SOUND 1, - 10,205 : GOTO 80 
130 IF N- 1 THEN PROCgame 
140 IF N 2 THEN PROCmusic 
150 IF N=3 THEN PROCquiz 
160 IF N= 4 THEN PRINT “GOOD BYE" : GOTO 2000 
170 CLS: PRINT “PRESS RETURN ТО CONTINUE”; : INPUT Y s 


Part of the program 

if any variable which is® 
€ outside the procedure 

gram). 
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180 IF Y. $=" THEN GOTO 10 ELSE END 

190 REM * procedure GAME * 

200 DEF PROCgame 

210 CLS: PRINT “TOSSING A COIN” 

220 LOCALN 

230 INPUT ''Number of tosses’; N 

240 FORT=1 TON 

250 P= RND (2) 

260 IF P=1 THEN PRINT “іп toss no. ""; Т; ". you got HEAD" 
270 IF P=2 THEN PRINT “Іп toss по. "'; Т; ", you got TAIL" 
280 FOR wait= 1 TO 1200: NEXT wait 

290 NEXT T 

300 PRINT "Press space bar to continue" : R$ = GETS 
310 ENDPROC 


480 НЕМ“ procedure MUSIC * 

490 DEF PROCmusic 

495 PRINT ‘‘PROCmusic begins" 

500 FORK=1 TO 20 

510 SOUND 1, - 12,240,3 : SOUND 1, – 10,160,3 
520 NEXT K 

530 VDU 7: VOU 7: VDU 7 : VDU 7 

540 PRINT ''PROCmusic over" 

550 ЕМОРНОС 


790 REM * procedure GUIZ * 

800 DEF PROCauiz 

810 LOCALN, AS 

820 FORN=1 TO 10 

830 READAS, BS 

840 PRINT “WHAT IS THE UNIT ОҒ”; AS 

850 INPUT C$ 

860 IF C $= B THEN PRINT “CORRECT!” ELSE PRINT "WRONG! The 
correct unit is" ; BS 


870 FORW=1 TO 200: NEXT W 
880 NEXT N 
890 DATA CURRENT, AMPERE, POTENTIAL DIFFERENCE, VOLT, WORK, 
JOULE 
900 DATA ENERGY, JOULE, ELECTRIC CHARGE, COULOMB, LENGTH, 
METRE 
1000 DATA MASS, KILOGRAM, TEMPERATURE, KELVIN, MAGNETIC FIELD, 
TESLA 
1010 DATA FORCE, NEWTON 
1020 PROCmusic 
1030 ENDPROC 
In this program the computer allows the user to select the 
procedure by entering 1, 2 or 3. If the user is interested in 
music, he has to enter the option 2, which shifts the control of 


the computer to the line number 499 directly. The execution of 


82. BBC BASIC PROGRAMMING 


the line numbers from 490 onwards to 550 will take place. The 
line number 559 transfers the control of the computer directly 
to line number 179 of the main Program. You have seen the 
statement on sound and VDU 7 in the above section on PROC- 
music. We will discuss these statements in greater detail in the 
chapter entitled SOUND. 

Further, the variable М is used in the procedures game and 
quiz. At these places we have informed the'computer that as 
this N is our local variable it has no connection with any other 


value(s) of N in the remaining program by the statement 
LOCAL. 


program, 

Include the followin 
205 PROCmusic 
295 PROCmusic 


From the above discussions we conclude that statement 
DEFPROC is easier 


to handle than the GOSUB or ON N 
GOTO statement. 


8 lines іп the program and RUN. 


EXERCISES 


1. Prepare a program to calculate the time period of a simple 
pendulum by using the DEF Statement for the values 
L — 0.95,1,1.02 and 1.05. 
(Hint DEF FNT(L) = 2*(PI)*SOR(L/G) 
where L is the length of the string in metres 
G is the acceleration due to gravity 
(= constant 9.98) ) 
2. By using subscripted data and 
array of 15 numbers and write 
3. Point out the mistakes (if any) 
() DIM(- 20) 
(i) DIM А (20) 


the DIM statement enter an 
@ program to find the sum. 
in the following statements 


yo 


a 
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(i) DIMAS (10 

(м) DIM(A= 10) 

(v) DIM 100 

(v) DIM (6,4,2) 

(vi) DIM A (4,4) 
(мі) DIM A (0,0) 

(їх) DEF FNP (X)=X^2-Y^2 

(x) DEF FN (K)=K*K 

(х) DEF FNT $ (S Ф) = “уои аге" + S $ 
(хі) DEF FNX (A,B,C) = (А- B)*(A+ В) 
(хі) DEF FN C (R)=2* (PD*R 
(xiv) DEF FNBS (Х)-45- X*B 

(xv) DEF FNY (A,B)=A*2+ 8*B'A- B^8 
What will the outputs of the following programs be? 


(а) 10DIM A (20) 
20 FOR I=1 TO 20 STEP 2 
ЗО PRINT A (|) 
40 NEXT I 
(b | 10 DIM A $ (4) B (4) C (4) D (4) 
90 REM * Reading the DATA * 
ЗО FOR №= 1 TO 4 
40 READ A $ (N),B (М),С (N),D (N) 
50 NEXT N 
6D REM * PRINTING THE DATA * 
70 FOR N=1 TO 4 
80 PRINT A $ (М),В (N),C (N),D (N) 
90 PRINT " " 
100 DATA ANURAG,28,15,17 
110 DATA MANU, 12,19,28 
190 DATA SUNDARAM,22,18,21 
130 DATA СЕЕТА,25,17,15 
140 END 


83 


The following programs have bug(s). Carefully debug 


them. 
(а) 10 def fne(f)= (5/9)* (F- 32) 
20 FOR F= 100 TO 200 STEP 10 
30 PRINT F; “FARENHEIT= '"';FNC (F); “CENTIGRADE”’ 
40 NEXT F 
(b 10 DEF FNV(R,H)= (1/3)* (P)* (R^8)*H 
20 PRINT" CONE” 
30 INPUT “ENTER THE RADIUS” ;R 
40 INPUT “ENTER THE HEIGHT" ;H 
50 LET L= SQR (h^ 8 -- R^8) 
БО LET V=FNV (Н,Н) 
70 DEF FNA(R,L)= (PD*R* (R+ L) 
80 LET A= ЕМА (R. 
90 PRINT "VOLUME OF THE СОМЕ- "М 
100 PRINT "TOTAL AREA OF THE CONE="'; 
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110 End 


Explain the following program. Is there any bug in it? If 
the answer is yes, then remove it. 

10 CLS 

20 PRINT “ ” 


"OXFORD UNIVERSITY PRESS" 
COMPUTER LITERACY PROJECT’ 
“HAS PUBLISHED A BOOK ОМ” 
NCERT" 
MATHEMATICS" 

80 LET F $= "BASIC PROGRAMMING" 

90 DEF FNT (A $,C S,FS)-AS«CS«FS 
100 PRINT FNT (A $, C $, F $): PRINT" " 
110 PRINT FNT (D %,С S.E $) 
120 END 


Write a program by using statement DEFPROC to 
calculate,(i) the area of a triangle, (ii) the area of a rhom- 


bus, (iii) the area of a parallelogram. Present option at 
the beginning. 
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CHAPTER 14 


СЕТ$ and INKEY$ Statements 


When playing a game on the computer, it would be very 
tedious if you had to keep pressing the RETURN key after each 
change. So the BBC micro has four very useful BASIC 
statements which respond to single key strokes. They are 
СЕТ$, GET, INKEY$ and INKEY. 


GET$ and GET Statements 
These functions wait until a key is pressed, irrespective of 
time. 


Program 1 
10 CLS 
20 LET A=20: LET B- 35 
ЗО PRINT "A+ B="; A+B 
40 PRINT “PRESS ANY ALPHABET KEY TO FIND A* B" 
50A$=GETS 
БО PRINT "А*В="; A*B 
70 PRINT "GOOD-BYE" 
80 END 

In line number 90 the computer will wait until the user 
presses any key; there is no need to press the RETURN key. 
After the user presses the key, the computer will execute line 60 
onwards. If line 50 is replaced by the following: 

50 A=GET 
The user has to press any number key or enter a number. 


INKEY$ and INKEY Statements 

These statements wait for an allotted time. If no key is 
pressed, it will start executing the next line statement. Replace 
line number 50 of the above program as follows and RUN the 
program to see the output: 

50 A$ = INKEY$ (200) 

Explanation 

In the above line 50 the time allotted to press any alphabet 
key is approximately 2 seconds. If the key is not pressed within 
2 seconds the computer starts to execute line number 60. 
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If a programmer-uses INKEY instead of INKEY$ then he/ 
she has to enter a number. 


A part of the program in which the computer asks the user 
for another run is given below for you to try in your program. 


Program 2 
900 PRINT “DO YOU WANT ANOTHER RUN?" 
210 A $= INKEY $ (300) : НЕМ“ Time allowed to answer- 3 sec * 
220 IFAS ` THEN PRINT "LATE!'': GOTO 250 
230 IF AS="Y" THEN PRINT “ВНАМЕ!”: GOTO 10 
240 IF A $= THEN PRINT "'TIRED!": GOTO 260 
: 850 PRINT "ANSWER AGAIN": GOTO 210 
260 PRINT "GOOD BYE" 
270 END 
In line 230 GOTO 10 leads the control to first statement of 
the main program. 
Another program for a similar task is given below. 
Program 3 
900 PRINT "DO YOU WANT ANOTHER RUN?” 
210 REPEAT 
220 LET K $= GET $ 
230 IF K $= "Y" THEN RUN 
240 UNTIL K $= "№" 
250 END 


If the user does not press Y or N, the co 
manently stuck until he or she does so. 
Now a program with INKEY$ 
Program 4 
10 CLS 
20 PRINT TAB (3,4) “LET US CHECK HOW FAST YOU АВЕ" 
30 INPUT “ENTER YOUR FULL NAME (Not smaller than 10 alphabets. "МФ 
40 FORP=1 7010 
50 X= ВМО(10) 
60 Q $= MID $ (N $,X,1) 
70 PRINT TAB(18, 12) "PRESS: “0% 
80 G S= INKEY $ (1000) 
S0 IF INKEY S (10 00)= G$ THEN PRINT TAB (3.16) "CORRECT" : GOTO4 10 
100 PRINT TAB (3,16) "LATE! "; NS 
110 FORW- 1 TO500: NEXT W 
180 PRINT TAB (3,20 "TRY NEXT" 
130 FORT» 1 to 500: NEXT T: CLS 
140 NEXT P 
150 END 


While running this program the user should be very quick. 
In line 80 reduce INKEY$(1000) by a lesser number, say 500, 


mputer will be per- 
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to make the game more complicated or vice versa. 
Replace lines 30,40,50,60 as follows 

30 N $= "ABCDEFGHIJKLMNOPGRSTUVWXYZ' 

40 FOR P=1 TO 26 

50 LET X= RND (26) 

50 G $- MID $ (N $,X,1) 
RUN this changed program and see the output. 


EXERCISES 


1. Write the function of the statements GET, GET$. Prepare 
a PROGRAM using these statements. 

2. Explain the meaning. of INKEY (800). What will happen if 
INPUT is used in place of INKEY(800)? 

3. What are the differences between the statements given in 
each of the following pairs: 
(i) GET and GET$ (ii) INKEY and INKEY$? 

4. Explain the purpose of line 89 in Program 4. 


membr, 
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Advanced Graphics 


In the BBC Microcomputer a very good facility that is pro- 
vided is а set of key words with which the user can write text, 
draw a figure and produce colour graphics on the screen. 

Some main keywords (statements) are COLOUR, GCOL, 
DRAW, MOVE, PLOT & VDU. Each statement is discussed 
in brief, one at a time. 


MODE Statement 

By this statement the user can select a particular graphic 
MODE. Its format is MODE п. 

Here ‘n’ takes any value from 0 to 7. Thus there are eight 
types of MODEs. Each type of Mode allows a different size of 
screen for writing text and provides colour graphics. The user 


can select any one out of the eight screen display Modes, accor- 
ding to his needs. 


TABLE 
MODE SCREEN GRAPHICS NO OF 
NO. SIZE ROWS POSSIBLE? COLOURS RESOLUTIONS 
COLUMNS 

9 80 32 yes 2 640 x 256 
1 40 32 yes 4 320 x 256 
2 20 32 yes 16 160 x 256 
3 80 25 no 2 - 
4 40 32 yes 2 320 x 256 
5 20 32 yes 4 160 x 256 
6 40 25 по 2 - 
7 40 25 по is - 


«МОРЕ 7 can provide different colours, but not by using the 
keyword COLOUR (see Chapter 18) 


LOGICAL COLOUR NUMBERS 
MODE 0,3,4,& 5 


ee 
COLOUR FOREGROUND BACKGROUND 

—— BAUAGROUND. 
BLACK 0 128 


WHITE 1 129 
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MODE1&6 

COLOUR FOREGROUND BACKGROUND 
BLACK 0 198 
RED 1 129 
YELLOW 2 130 
WHITE 3 131 
MODE 2 

COLOUR FOREGROUND BACKGROUND 
BLACK 0 128 
RED 1 129 
GREEN 2 130 
YELLOW 3 131 
BLUE 4 132 
MAGENTA 5 133 
CYAN 6 134 
WHITE | 7 135 
FLASHING BLACK & 8 136 
WHITE 

FL.RED & CYAN 9 137 
FL.GREEN MAGENTA 10 138. 
FL.YELLOW — BLUE 11 139 
FL.BLUE- YELLOW 12 140 
FL.MAGENTA — GREEN 13 141 
FL.CYAN - RED 14 142 
FL.WHITE — BLACK 15 143 


Screen Co-ordinates for Graphics 
The screen is just like a graph whose X-axis has 1279 units and 
Y-axis has 1023 units. To draw, move or to plot,the user has to 


select the proper co-ordinates. . { 
The invisible graphic cursor is on 0,0 in the beginning. 
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MOVE X,Y Statement 


This statement moves the graphics cursor to the indicated co- 
ordinate without drawing anything on the screen. Its format is as 
follows: 

MOVE X,Y 


Program 1 To move the invisible graphics cursor. 
10 MODE2 

20 MOVE800,300 

Explanation 


Line number 19 will convert the screen to MODE 2 and line 
number 29 tells the computer to move the graphic cursor to a 


point whose co-ordinates аге (800,300). It will be approxi- 
mately at point P in Fig. 15.1 (page 89). 


DRAW X,Y Statement 


This statement tells the computer to draw a line from the 
point where the cursor lies whose co-ordinates are (X,Y). Its 
format is as follows: 

DRAW X,Y 


Program 2 А program to draw a square. 
10 MODE 2 

20 MOVE 890,300 

30 DRAW 800,700 

40 DRAW 400,700 

50 DRAW 400,300 

80 DRAW 800,300 

70 END 


The output of this program will be a s 
400 units, all of whose four sides are in 


COLOUR п Statement 


This statement is used to colour the text, background screen 
and a text line. Its format is as follows: 
COLOUR n 
where n stands for colour number. 
Program 3 Insert the following lines in the last program: 
25 GCOLD,1 
35 GCOLO,2 
45 GCOLD,3 
55 GCOLD,4 
The output of the 
coloured sides. 


quare of the length of 
white. 


program will be a square with different 


т= 
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Program 4 А program to give a colour effect to the text. 
10 MODE 2 

20 ҒОНС- 1 T07 

25 COLOUR C 

30 PRINT TAB (5) "COLOUR EFFECT'';C : PRINT“ ” 

40 NEXT C 

50 END 


Enter the program and see the output yourself. Also remove 
line 25 and see the output. Note the difference between these 
two programs. 


Program 5 A program which colours the screen 
10 MODE 1 

90 COLOUR 130: CLS : REM * COLOUR THE SCREEN* 

30 COLOUR 0 

40 PRINT TAB (4,8) "JAWAHARLAL NEHRU' 

50 END 


ССО, n Statement 


This statement stands for Graphic COLour. This is used to 
shade in colour lines and areas. GCOL is followed by its code 
number f and then its colour number denoted by-n. Its format 
is as follows, 

GCOL4, n 
where n stands for colour number. It should be selected in 
accordance with your working mode and choice. 

In MODE 5 these following statements are used for fore- 
ground colour: 

GCOLDQ, Ø for black colour 
GCOLO,1 for red 
GCOLQO,2 for yellow 
GCOLO,3 for white 

Whereas the following are used for background colours: 
GCOLO,128 for black 
GCOLO,129 for red 
GCOLO,130 for yellow 
GCOLO,131 for white 
Program 5 A program to print three red stars on a blue 
background. 

10 MODE2: COLOUR 132 : CLS 
20 COLOUR 2 

30 PRINT TAB (9,10) “ен, 
40 END 
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т 85, X, Y Statement 


t 


r- 
int defined by (X,Y) 509 
points to the point ay 
last two Le ROR the latest foreground colour us 

dinates. е 

program. 


Em 
6 A program to draw a coloured triangle 
Program | 
10 MODE 2: COLOUR 133: CLS 
20 MOVE 200, 200 
GCOLD, 3 
p DRAW 100, 200 
30 PLOT 85, 600, 600 


60 END 

Explanation | 

Line number Function the 

10 Puts Computer jn MODE 9 and colours 
Whole screen Magenta, i A aay: 

20 Moves the 8Taphic cursor to a point whos 
ordinates are 200, 900 а 

30 Selects the foreground graphic colou 
green. he 

40 Draws a line from the point 200, 200 to t 
Point, 1000, ogg itin 

50 Joins the a Ove three points and SOME in 
Sasan Which is the latest colour assigne 
line 30. 

60 Ends the Program. 

Program 7 


E am to draw the ‘Red Cross’ sym bo! 

: COL UR 13a. CLS 
20 MOVE SOD, DD : GCOLO, ДЕ REM: 
30 DRAW >р 0р | 


Colour* 


со: 
defined by x M 
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Program 8 A program which puts a mark at a point whose 
co-ordinates аге 600, 400 is given below: 

10 MODE 5 

20 COLOUR 129: CLS 

30 PLOT 69, 600, 400 

40 END 


Program 9 To draw a line Y= X/2. 
10 MODE 2 : COLOUR 133 : CLS 

20 FOR X=20 TO 1200 

30 LET Y= Х/о 

40 PLOT 69,X,Y : REM * marks the point * 
50 NEXT X 

60 PRINT ТАБ(5,3) "GRAPH Y = X2" 

70 FOR N= 20 TO 1200 

80 PLOT 698,N,20 

90 NEXT N 

100 FOR M=20 TO 1000 

110 PLOT 69, 40,М 

180 NEXT M 

130 END 


EXERCISES 


l. State the colour corresponding to the following numbers in 
MODE 2: COLOUR 132, COLOUR 10, COLOUR 4, 
COLOUR 140, COLOUR 15. 

2. Write down the colour code corresponding to the following 
colours in MODE 5: black foreground, white background. 

3. What is the size of the text screen in following MODEs? 
MODE 2, MODE 7, MODE 5. 

4. Write down the formats of the following statements: 
DRAW, MOVE, PLOT, COLOUR and MODE. 

5. Prepare a program to draw a boat against a blue 
background. 

6. Prepare a program to draw the graph of Y —(3/2)*X +5 
by using PLOT 69,X,Y statement. 

7. Point out the errors, if any, in the following statements: 

(a) 10 MODE 8 

(b 20 move 800,500 
(0140 DRAW (800,350) 
(d)120 PLOT 69,1000,1280 
(9150 MOVE 0,560,434 

( 60 COLOUR 25 

(9110 DRAW – 369, - 500 
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(9180 mode 5: COLOUR 6 $ 
8. Debug the following program, if necessary, and RUN: 
(a) 10 MODE 3 
90 COLOUR 149: CLS: REM Background colour 
30 GCOLD,2 
40 MOVE 300,300 
50 DRAW 800,300 
50 PLOT 85,600,800 
70 COLOUR 4 
80 PRINTTAB (5,2) "RIGHT TRIANGLE” 
90 END 
(b 10 MODE 2 
20 COLOUR - 132 : CLS 
30 MOVE 0,0 
40 REM * TO DRAW SQUARE * 
50 DRAW 500,0 
60 GCOLO.3 
70 PLOT 85,500,300 
80 DRAW 0,300 
90 PLOT 0,0 
100 PRINTTAB (5,2) “square” 
110 END 
(о) 10 REM * to draw box * 
20 MODE 2 : colour 129 : CLS 
30 FOR X- 0 TO 1000 STEP 20 
40 DRAW 1000- X,X 
50 DRAW 1000- X,1000- x 
60 DRAW X, 1000- X 
70 DRAW Х,Х 
80 next X 
90 END 


9. Try the following programs: 
(а) 10 MODE 2 
20 X=200: Y= 300 
30 D=500 
40 MOVE X,Y 
45 6С010,1 
50 DRAW X,Y+ D 
55 GCOLO,2 
60 DRAW X+D,Y+D 2 
65 GCOLO.3 
70 DRAW X+ D,Y 
75 GCOLO,4 
80 DRAW X,Y 
90 END 
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(b) 10 MODE 2 
20 FOR СХ- 200 TO 900 STEP 100: CY= 500 
30 R=50 
40 FOR X= - R TO R: Y= SGR (R* R- X* X) 
50 PLOT 68, CX+ X, CY+Y 
60 PLOT 69, CX+ X, СХ-Ү 
70 NEXT X 
80 NEXT CX 


Note the output yourself. Modify the program, if there is any 

bug. 

10. Enter and RUN the following program on your Micro- 
computer. 


10 MODE 4 
20 WAIT= ІМКЕҮ (100) 
30 FOR P=1 TO 160 + RND (180) 
40 PLOT 69, RND (1279), RND (1023) 
50 NEXT P 
60 WAIT= INKEY (100) 
70 PRINT TAB (0,3); "FULL MOON" 
B0 REM CENTRE 640, 512 and RADIUS 450 
90 CX- 640: CY=512: R=450: A= -5 
100 MOVE СХ,СҮ+ R 
110 PLOTO.0,0 
120 FOR Y= R TO- R STEP A 
130 X- SGR(R*R- Y*Y) 
140 PLOT 85, CX- X, CY+Y 
150 PLOT 85, CX« X, CY-- Y 
180 NEXT Y 
170 END 


(i) Delete line 110 and RUN the program. 

(ii) The user is also advised to change the value of R— 
150 in line 90. RUN the modified program and note 
down the output. 
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Making a Character 


If a user wants to write a program for a game in which 
aeroplanes or cars move about the screen, he/she needs some 
characters which are different from those on the key. For this 
task the BBC Microcomputer has some spare code numbers 
and the user may design his/her own characters in accordance 
with particular requirements. The AISCII code numbers 


available for these purposes are 224 to 255 іп MODEs f to 6 but 
not in MODE 7 


Ж aep o IG 


Deo CHEE 
d ты- 


Fig. 16.1 


For making the re 
eight graph paper. T! 
some of the s 
figure. 

Here is one such designed character, a car (see Fig. 16.2), 


128 64 32 16 8 4 9 


quired character the user needs eight by 
he user can draw characters by shading in 
quares іп accordance with requirements of the 


Fig. 16.2 
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To assign suitable values to the columns, these are numbered 
as above. 

Now look at row 1 and see which of its squares is shaded in 
and add the number in each row. 

Row 1 is blank so the sum of the shaded squares = 9 

Row 2 is blank so the sum of the shaded squares = 0 

Row 3, Two squares are shaded so the sum of their column 
numbers is (32 + 16) = 48 

Row 4, Five squares (64+ 32+ 16+ 8+ 4) are shaded so that 
their sum is 124. 

Similarly, the sum of the shaded columns in Row 5, Row 6, 
Row 7, Row 8 are 215,255,102 & 102, respectively. 

These eight numbers instruct the computer to store the 
character in its memory for which we may assign any number 
from 224 to 255; let us assign number 230. 

The complete instruction for making this character will be: 
VDU 23,230,0,0,48,124,215,255,102,102 


Program 1 To print a CAR 


10 MODE 2 : COLOUR 132 : CLS 

20 COLOUR 4 

30 VDU 23,230 ,0,0,48,124,215,255,102,102 
40 LET CAR $= CHR $ (230) 

50 PRINT TAB (10,8) CARS 

60 END 


In line 30 VDU 23 is a statement for making a character, 230 
is the character code, the other eight numbers after 239 are the 
sum of the squares in row 1 to row 8 (separated by commas). 

In line 40 the computer assigns.CHR $ (230) as CAR $. 

In line 50 the computer prints the car. 


Program 2 To move a CAR 

The user is advised to add the following linesin PROGRAM 1: 
45 FOR С= 1 TO 18 : REM * Column 1 to 18 * 
50 PRINT TAB (C,8) “ "+ CAR 6: REM * prints car in column с & 8th row* 
60 FORW=1 TO 300 : NEXT W : НЕМ“ waiting time * 
70 NEXT C 
80 END 

Remove line 60 from the above program and note the effect. 


How Are Characters Added? 
Suppose you wish to draw a truck. For this two extra 
characters should be addded because of its length. 
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In the following program lines 30 апа 40 inform the com- 


puter about these two characters which are the two 
truck. In line 50 the computer adds the two chara 


parts of the 


cters. 


The front part of the truck is given in Fig. 16.3. 


FESSES 


128 64 32 16 8 


I. 3 MIS 
© ә o 
а 3 4 & 8 


ММММ 
Br 


бош 


Fig. 16.3 


Let its code number be 225 
VDU 23,225 ,7,247,247,151,247,255 


,99,99 


code number 226. For this 
puter instruction will be as follows: 


The back part of the truck has the 


the complete com; 
VDU 23,226,255,255,255,255 255 


,255,6,6 


10) ao: © д © an 
O © © ыш шю a 
N N N N N 


SESS T] 
М 
МУМ 
“RAW | 
ERA ||| 
<< - 
АЗДЫ 

АЗУЫ |] | 
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Program 3 А moving truck 

1@ MODE 2 : COLOUR 132 : CLS 

20 COLOUR 2 

зр VDU 23,225,7,247,247,151,247,155,99,99 

40 VDU 23,226,255,255,255,255,255,255,6,6 

50 LET TRUCK $ = CHR $ (225) + CHR $ (226) 

60 FOR C- 18 TO 1 STEP- 1 

70 PRINT TAB (С,10) TRUCK $; " " 

ВО FORW- 1 TO 60D : NEXT W 

90 NEXT C 
100 END 

In line 50 the two characters are added and in line 70 they 

are printed. The blank space after the truck erases the truck. 
In line 80 it allows waiting time. The user is advised to delete 


line 80 and see what happens. 


Program 4 А caterpillar 

10 MODE 2: COLOUR 133 : CLS 

20 VDU 23,239,6,63;127,223,255,127,63,10 

30 VDU 23,231 ,85,255,955,255,255,955,955,170 

40 VDU 23,232,84,252,255,255,254,252,248,160 

50 LET CATER $= СНН $ (230) + СНН $ (231) + CHR$ (231) + CHR $ 

(231) + CHR $ (232) 

60 FOR С= 14 TO 1 STEP - 1 

70 COLOUR 3 

ВО PRINTTAB (C,10) CATER + " " 

90 FOR W=1 TO 1000: NEXT W 
100 NEXT C 
110 END 

Here is a program with special characters for you to try ori 
your Micro. The user is advised to draw the character on the 
graph. 
Program 5 

10 MODE 2: COLOUR 134 : CLS 

20 VDU 23,230,8,28,28.107,127,107,8,28 

30 VDU 23,231 ,8,28,62,127,62,28,8,0 

40 VDU 23,232,54,127,1 27,62,28,8.0 

50 VDU 23,233,8.28,62,1 27,127,127,28,62 

60 LET CLUB $= CHR $ (230) 

70 LET DIS=CHRS (231) 

80 LET HEART $= CHR $ (232) 

90 LET SPADE $= CHR $ (233) 
110 PRINT“ : PRINT" " 
120 LET N= RND (4) xN 
130 IF N= 4 THEN COLOUR 0 : PRINT CLUB S^ 
140 IF N= 2 THEN COLOUR 1 : PRINT CLUB D1 $; ^" 
150 IF N-3 THEN COLOUR 1 : PRINT HEARTS; 
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160 IF N=4 THEN COLOUR 2 : PRINT SPADES ; " " 
170 PRINT * " : PRINT" *- РАМТ" ~ 


180 PRINT “TYPE RUN TO RESTART & PRESS THE RETURN KEY" 
190 END 


How to Join Characters Vertically 


Suppose you need to draw a rocket. To do this you have to 
join the characters vertically. First you have to form the 
characters on a graph. Note down the characters for the rocket 
as follows: 
VDU 23,240,16,16,16,56,124,124,194,194 
VDU 23,241,214,124,124,124,194,194.194.194 
VDU 23,242,124,124,124,254,254,40,40,40 


The user is advised to draw the graph for these characters 
and see the figure for himself. 


Program 6 To launch a ROCKET 
10 MODE 2: COLOUR 130: CLS 
20 VDU 23,240,16,16,1 6,56,124,124,124,124 
30 VDU 23,241,214,1 24,184,1 24,124,124,124,124 
40 VDU 23,242,124,4 24,1 24,254,254,40,40,40 
50 FOR Н- 25 TO 1 STEP — 1 4 
60 COLOUR 4 
85 PRINT TAB (10, R+2) е” 
68 PRINT ТАВ (10, 9+3)" " 
70 PRINT ТАВ (1 D.P CHR $ (240) 
ВО PRINT TAB (19,R+ 1) СНА $ (241) 
90 PRINT ТАВ (1 @Н+2) CHR $ (242) 
100 FORW=1 TO 500: NEXT W 
120 NEXT R 
130 END 
Remove the line 
the output. 


е program 
55 SOUND 0, - 15,290,190 
56 SOUND 0,-7,20,100 
RUN this modified program. 
EXERCISES 


1. What is the use of the VDU23 statement? Can you prepare 


a special character which is not in the keyboard without a 
VDU23 statement? 


— 


| 


MAKING A CHARACTER 101 


Draw the graph for the following VDU statements and try 
to PRINT these on your Microcomputer screen. 

(i) VDU 23,230,8,28,28,107,127,107,8,28 

(ii) VDU 23,231,265,20,20,116,84,116,4,4 


Prepare a helicopter and launch it. (Introduce sound effect 
when you learn how to do it.) 

Prepare a character for a doll and move it across the 
screen. z 

How many special characters can you design in a program? 


M ES \ 


СНАРТЕК 17 


Sound 


The BBC Microcomputer has four channels to produce 
sounds. A user can play music or produce sound with a pro- 
gram. The basic key word which causes the computer to pro- 
duce sound:is SOUND. The key word SOUND produces a 
tange of sound effects specified by the numbers or variables 
following the command. Its format is as follows: 

SOUND C,L,P,D 

The parameter C stands for channel number which can take 
any value, viz. 0,1,2 and 3. Channel number @ causes noise 
whereas channels 1,2 and 3 produce musical sounds. 

The parameter L stands for loudness which can take any in- 
teger from — 15 to 0. The loudest sound is produced оп - 15 
and on 9 the lowest. 

The parameter P stands for pitch/frequency which can take 
any value ranging from 0 to 255. The note A above middle C is 
selected with a value of 89, and 53 is middle C. 

For those who can read music and want to create their own 
tunes, the following diagram will help. 


53 61 69 73 81 89 97 101 109 117 


6Уатеоі8 2587790 917850741 


а ---ж 


SOUND 103 


The parameter D stands for duration which can take any 
value from — 1 to 254. This value is the range 9 to 254. It gives 
a note duration of that number multiplied by one-twentieth of 
a second. Thus if D = 50 the note will last for 2.5 seconds. If 
D= —1 then the note will continue to produce the sound until 
you press the ESCAPE key to interrupt the PROGRAM. - 

Let us try these sound programs. 


Program 1 

10 CLS: PRINT TAB (10,12) “SOUND” 
20 SOUND 1, - 12, 97, 10 

30 SOUND 1, - 12, 105, 10 

40 SOUND 1, - 10, 89, 20 

50 SOUND 1, - 15, 41, 15 

80 SOUND 1, - 5, 69, 20 

70 END 


Program 2 
10FORPLAY- 1 TO2 
20 SOUND 1, - 10, 73, 10 
30 SOUND 1, - 10, 81, 01 
40 SOUND 1, - 10, 89, 10 
50 SOUND 1, - 19, 73, 10 
60 SOUND 1,0,0,1 
70 NEXT PLAY 
80 FOR REPLAY - 1 TO 2 
90 SOUND 1, - 10, 89, 10 
100 SOUND 1, - 10, 93, 10 
110 SOUND 1, - 10, 101, 20 
180 SOUND 1,0,0,1 
130 NEXT REPLAY 
140 END 


Program 3 То produce sound effect on different channels. 


10 FOR С=@ TO 3 STEP 1 

20 CLS : PRINT TAB (3,8) "SOUND EFFECT IN CHANNEL NUMBER “С 
30 SOUND C, - 15,89,20 

40 INPUT TAB (3,15) "PRESS SPACE BAR TO CONTINUE"; KS 

50 NEXT C 

50 END 

Program 4 To produce sound effects of different pitches. 
10 FOR PITCH» 100 TO 200 STEP 20 

20 CLS : PRINT TAB (8,8) "SOUND EFFECT ON PITCH"; PITCH 

30 SOUND 1, - 18, PITCH, 20 

40 INPUT TAB (3,15) "PRESS ANY NUMBERED KEY"';K 

50 NEXT PITCH 

60 END 
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Program 5 Тһе sound of a MOTORCYCLE 
19 CLS: PRINT TAB (12,12) " MOTORCYCLE" 

90 SOUND Ø, - 15,3,100 
30 FOR P= 100 TO 200 
40 SOUND 1, -2,Р,1 
50 NEXT P 
80 END 


Program 6 А musical tune. 
10 CLS : PRINT TAB(10,8)"** TUNE**" 
20 FOR PLAY=1 TO 2 
30 SOUND 2, - 15,49,20 
40 SOUND 1.- 15,61,20 
50 SOUND 2.- 15,41,20 
80 SOUND 1,-15,77,20 
70 SOUND 2, - 15,33,40 
80 SOUND 1,- 15,81,40 
90 SOUND 2, - 15,49,40 

100 SOUND 1,- 15,81,10 

110 SOUND 1,- 15,77,10 

120 SOUND 1,-15,81,10 

130 SOUND 1,- 15,89,30 

140 NEXT PLAY 

150 END 


Hindustani Classical Music 


You can compose Hindustani classical music on your BBC 
Microcomputer with the help of the following pitches. To 
Prepare your own tune, you should know the fundamentals of 
HINDUSTANI music. Approximate pitch/frequency numbers 
are given in the brackets corresponding to the Hindustani 
Swara, for your BBC Microcomputer. 


Sa(56), Re(64), Ga(72), Ma(76), Pa(84), Dha(92), Ni(100) 
Higher 5а(104) 


Try the following program. 


Program 7 Sargam of Hindustani music. 
10 FORN- 1 TOS 
20 FOR P=1 T08 
30 READ A 
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40 SOUND 1,- 15,A,30 
50 NEXT P 
80 FOR W- 1 TO 850: NEXT W 
70 FORR- 1 TO8 7 
80 НЕАОВ 
90 SOUND 3, - 15,B,30 
100 NEXT R 
110 FOR W= 1 TO 250: NEXT W 
120 RESTORE 
130 NEXT М 
140 DATA 56,64,72,76,84,92,104 
150 DATA 104,100,92,84,76,72,64,56 

In the above program the numeric variables N,P and R are 
used to repeat the steps. 

You can prepare the Hindustani classical Raag ‘LALIT’ by 
using SOUND statements with pitches/ frequency of the follow- 
ing Aaroha and Avaroha. 

Aaroha : Ni lower tivra(129), Komal Re(137), Tivra 
Ga(149), Tivra Ma(157), Komal Ma(153), 
Tivra Ni(177), Higher Sa(181) 

Avaroha : Higher Sa(181), Tivra Ni(177), Komal 
Dha(165), Tivra Ma(157), Komal Ma(153), 
Tivra Ma(157), Tivra Ga(149), Komal 
Re(137), Sa(133). 

Here is a program for you to try on your BBC Micro. 


Program 8 A HINDUSTANI КААС ‘SARANG’. 


10 MODE 2 : COLOUR 132 : CLS : COLOUR 2 
30 PRINT TAB (B.8) "SARANG" : COLOUR 3 
40PRINT TAB(B.7) “= = = = = =" 
50 FORS=1 TO2 
60 FOR P=1 7010 
70 READ F 
80 SOUND 1,- 14,F.7 
90 NEXT P 
100 RESTORE 
110 NEXT S 
120 DATA 133,141,153,161,177,181 
130 DATA 181,177,161,153,141,133 
140 FOR X=1 ТОЗ 
150 FORG- 1 TO 10 
180 READ G 
170 SOUND 1,-15,6,10 
180 NEXT G 
190 RESTORE 
200 NEXT X 
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210 RESTORE 

220 FOR R=1 TO 10 
230 READ H d 
240 SOUND 3, - 10.H.10 
250 NEXT R 

260 RESTORE 

270 FORS- 1 TO 10 
280 READ M 

290 SOUND 1,- 14,M,15 
300 NEXT S 

310 RESTORE 

320 END 


In the above program the: pitch/frequency of the Aaroha 
and Avaroha are given below. 
Aaroha : Sa(133), Tivra Ma(141), Komal Ma(153), 
Pa(161), Tivra Ni(177), Higher Sa(181) 
Avaroha : Higher Sa(181), Tivra Ni(177), Pa(161), 


Komal Ma(153), Tivra Ma(141), Sa(133) 
A knowledge of music would help you to produce a better 
combination of these swaras. 


EXERCISES 


l. What are the different parameters used with the SOUND 


the ranges of these 


Statement? Also write down 
parameters. 


Prepare a Program of a movin 
Statement to add sound, 


5 car and use SOUND 


SOUND 107 


Use the following Aaroha and Avaroha to prepare the 

Hindustani Raag MALKAUNS. 

Aaroha : 5а(133), Ga(145) Ma(153) Dha(165) Ni(173) 
»a(181) 

Avaroha : 5а(181) Ni(173) Dha(165) Ma(153) Ga(145) 
Sa(133) 

Write down the pitch numbers corresponding to the 

following Hindustani swara. 

Sa, Tivra Ma, Komal Re, Komal Dha, Tivra Ni, Higher 

Sa and Pa. 

Point out the errors in the following expressions: 

(а) 20 SOUND 12,- 15,6,20 

(b) 50 SOUND 1,10 ,50,15 

(с) 21 SOUND 3.-7,500,25 

(d 25 SOUND 2,-10,151,-20 

(е) 65 SOUND 3,2,- 6,125,5 

(0 80 SOUND 0,- 12,56,3,50 

(g 45 SOUND 0,0,-—8,181,10 

(h 60 SOUND 2,- 15,200 ,20 

[i] SR SOUND 3, -190,101,25 

(i) 42 SOUND 2, – 10,83,20. 


CHAPTER 18 


Teletext Control 


In MODE 7, the BBC Micro provides a direct presentation of 
the text on the screen. Sometimes it is essential to print in dif- 
ferent colours on the screen to attract the attention of the user 
to specific points. For this purpose the TELETEXT CON- 
TROL is very useful. 

You know that in MODE 7 the display consists of 25 rows 
and 40 columns. Thus, in this MODE, there is a good 
alphanumeric structure and more space available on the 
screen. 

Here are the following BASIC statements and keys which 
play an important role in COLOUR display in MODE 7. 

1. CHR$ statements 

2. VDU statements 

3. USER-DEFINED KEYS 


CHR$ Statements 
These are used with the code numbers assigned to the dif- 
ferent colours in MODE 7. 


Here is a list of the CHR$ colour control code for 
Alphanumeric and Flashing effect. 


CHR$ code по. Colour/Effect 
129 RED 

130 GREEN 

131 YELLOW 
132 BLUE 

133 MAGENTA 
134 CYAN 

135 WHITE 

136* Flashing effect on 
187* Flashing effect off 


*Code nos. 136 and 137 can also be used with the colour 
code no(s) given in the table. 
Here is a program for you to try. 
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Program 1 To display the colour effect in MODE 7. 


10 MODE 7 

20 PRINT CHR S (129); “THIS IS A RED FORT" 

30 PRINT CHR S (131); “THIS IS A YELLOW SUNFLOWER" , 

40 PRINT CHR $ (132); "THIS IS А BLUE SKY" 

50 PRINT CHR $ (139): “THIS IS A GREEN TREE" 

60 PRINT CHR S (138); “THIS IS A MAGENTA FLASHING MAGIC” 

70 PRINT CHR s (136); CHR $ (129); CHR $ (157); CHR $ (132); "BLUE 
FOX ON THE RED ROAD" 

ВО REM * CHR S (157) for а red background colour CHR $ (1 29)* 


Explanation of line 76: 
CHR$ (136) for flashing effect; CHR$ (129) for red colour; 


CHR$ (157) for background and CHR$ (132) for blue text. 
SOME MORE CHR$ CODES 


CHR$ code no. Purpose 

137 To turn off the flashing in the line after 
some characters. 

141 To produce double-height characters. 

140 To turn off the double-height in that 
line after some characters in double- 
height. 

157 To produce a new background colour. 

Program 2 


10 REM * TO PRODUCE А DOUBLE-HEIGHT ALPHANUMERAL * 
20 MODE 7 
30 PRINT CHR $ (141); CHR $ (129); "BOMBA Y" 
40 PRINT CHR $ (141); CHR $ (129); "BOMBA Y" 
50 РАМТ" " 
БО PRINT CHR S (141); CHR $ (131); CHR $ (157); CHR $ (132); CHR S 
(136); "DOO RDARSHAN" 
70 PRINT CHR $ (141); CHR $ (131); CHR $ (157); CHAS (132); CHR $ 
(136); "DOORDARSHAN" 
` BO PRINT" " 
90 PRINT CHR 8 (141); CHR $ (130; CHR (157); CHR (138); CHR Sj 
(133; "PRESENTS" 
110 PRINT CHR $ (141); CHR $ (130); CHR $ (157); CHR $ (136); CHAS 
(133); "PRESENTS" 
120 PRINT CHR $ (141); CHR $ (132); CHR $ (157); CHRS (136); CHRS 
(129); “СНІТНАНАН" 
130 PRINT CHR $ (141); CHR $ (132); CHR $ (175); CHRS (136), CHRS 
(129); "CHITRAHAR" 
140 PRINT " " 
150 END 
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The output of the above Program will have double-height 
colour flashing characters on a coloured background. 
BOMBAY 
DOORDARSHAN 
PRESENTS 
CHITRAHAR 
Enter this program and RUN on your BBC Micro. 


The VDU Statement 


The VDU statement is also used to print alphanumerical 
characters and to get colour in MODE 7. The following is a 
sample program. For details see the USER GUIDE. 

Program 3 
10 CLS 
20 MODE7 
40 VDU 136 : REM FLASHING 
50 VDU 134: НЕМ СҮАМ COLOUR 


60 REMO 

70 VOU 207 : FOR W=1 TO 2000: NEXT 

80 REM X 

80 VDU 215: FOR W=1 TO 2000: NEXT 
100 НЕМЕ : 
110 VOU 70: FOR w=1 to 5000: NEXT 
180 REM O 
130 VOU 207 : FOR W=1 TO 2000: NEXT 
140 REMR 
150 VDU 210: FORW=1 TO 2000: NEXT 
180 REM D 
170 VOU 196 : FOR W=1 TO 2000: NEXT 
180 РАМТ" "; : НЕМ» SPACE * 


190 VDU 136 : REM FLASHING 

900 VDU 129: REM RED COLOUR 

210 REM P 

220 VDU 80: FOR W=1 TO 2000: NEXT 
230 REM R 

240 VDU 210 : FORW=1 TO 2000: NEXT 
250 НЕМЕ 

260 VDU 197: FOR W=1 TO 2000: NEXT 
270 REMS 

280 VDU 211 : FORW=1 TO 2000: NEXT 
290 REM S 

300 VDU 211 : FOR w- 1 TO 2000: NEXT 
310 PRINT " ": PRINT" ^. PRINT“ 

320 GOTO 40 

330 END 
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User-Defined Keys for Colour Effect in MODE 7 

Typing in CHR$ followed by its code number within 
brackets every time is very tedious. Another easier facility is 
given in the BBC Micro to show the colour effects in MODE 7 
by using the USER-DEFINED KEYS in combination with the 
SHIFT key to obtain special, colour effects. 


SHIFT & USER DEFINED KEY No. _COLOUR/EFFECT 


#0 Does nothing 
"al Red 

f2 Green 

f3 Yellow 

f4 Blue 

f5 Magenta 

f6 Cyan 

f White 

f8 Flashing on 

f9 Flashing off 


While using the User-Defined Keys, you will see the colour in 
the LIST of your program as well as during the execution of the 
program. қ 

If you want to decorate your program use these Defined Keys. 

In the following program you will see some special symbols 
just after the quotation marks in each of the PRINT state- 
ment. They are there because of the SHIFT key and the user 
defined key number indicated against them. The user has to 
hold down the SHIFT key and then press the user defined key 
(red keys) number indicated in the statement. For example, 

Symbol — is there in line 19 due to SHIFT key and the user 
defined key F1 to give red colour. The user has to act as per in- 
structions given in PRINT statement in the brackets. He/She 
need not type the matter given in the brackets. 


Program 4 

10 PRINT '' — (Press SHIFT & F1 keys together) for red colour" 

2р PRINT '' = (Press SHIFT & F3 keys together) for yellow colour'' 
ЗО PRINT “ zm (Press SHIFT & F8 keys together) for magenta colour" 
40 PRINT “ mm (Press SHIFT & F8 keys together) for flashing ON." 
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On the screen you will not see these symbols in the LIST of 


your program but you will see them when you print the LIST 
on paper using the printer. 


WINDOW 


Sometimes it is very essential to write and draw separately on 
the screen. Initially it is Possible to write the text or to draw 
anywhere on the Screen,but after setting a window the user can 
write or draw in the specified area for the purpose on the 
screen. 

There are two types of windows: 

(a) THE TEXT WINDOW 

(b) THE GRAPHICS WINDOW 


The Text Window It is there to specify the area where the 
user can write only the text. To form a text window the user 
has to use the code VDU 28, the format of which is: 

VDU 28, X1, Y1, X2, Y2. 


Here is a figure for you to study carefully. 


9,0 (origin) 


The value of the parame 
on the MODE. The value of X 
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Program 5 
10 MODE 1 
20 REM * TEXT WINDOW * 
зр VDU 28,5,20,30,10 2 
40 COLOUR 129 : CLS: REM * background colour * 
50 COLOUR 2 : REM * foreground colour * 
60 PRINTTAB(G)" **************" 


70 PRINT TAB(B)  **** чөө" 
80 PRINT TAB (5) "*. tt 
90 PRINT ТАВ (6) “ INDIA ` " 

100 PRINT TAB (6) ““ yw 

110 PRINT TAB (8) **** э," 


120 PRINT ТАВ (B) **************" 
130 PRINT“: PRINT" ” 
Enter this program and RUN. 


The Graphics Window It is clear from its name that it is 
used to set the graphics area on the screen. The code VDU 24 
enables the user to define the graphic area in which graphics 
can be drawn with the help of the statements DRAW, PLOT, 
etc. You know that the co-ordinates are 1279 units on the 
horizontal axis and 1023 on the vertical axis. The origin of the 
graphics cursor is at the bottom left. Its format is: 

VDU 24, X1; YI; X2;Y2; 

Note The last four parameters are followed by semicolons. 
The graphics window can be set in the MODE in which the 
graphics facility is available. 


(0,1093) 


(0,0) р (1279,0) 
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Let us type in the following Program to set the graphics 

window. 

10 MODE 2: COLOUR129 - CLS: REM * red background * 

20 REM * graphic window * 

30 VDU 24, 150;30 0;110;750; 

40 НЕМ * random triangles * 

50 MOVE 150, 300 

60 X- RND (1099) : Y= RND (800) 

70 DRAW X,Y 

80 PLOT 85, X+ 20g, ү 100 

90 GCOL 0, AND (15) 
100 GOTO 75 


This program will draw random triangles in the graphics | 
window. To escape do not forget to press the ESCAPE key. 


taneously. Precaution should however be taken in selecting 
areas so that they do not overlap. 


Program 7 То set the TEXT and GRAPHICS windows: 
10 MODE 2 
20 VOU 28,1,24,9,3 : REM * TEXT WINDOW * 
30 VDU 24,700;200;1200;950. : НЕМ * GRAPHICS WINDOW* 
40 COLOUR 132 : CLS: GCOLD, 134: cis 
50 COLOUR 2 
60 PRINT ' “TEXT: 
70 PRINT "WINDOW" 
80 COLOUR 1 
90 PRINT ' “THIS IS A WRITING PAD." : PRINT" " 
100 COLOUR Б 


110 PRINT ' "THE OTHER WINDOW IS A DRAWING SHEET" 
120 COLOURS 


130 INPUT ' “DO YOU WANT TO DRAW";A $ 
140 IFAS="N" THEN GOTO 170 
150 MOVE 750,425 : GCOLØ, RNO (1 5): DRAW 1100,425 
160 PLOT 85,750,900 
170 PRINT " ": PRINT" "° 
180 END 

The output of the Program 7 will be two windows on the 
screen. After entering and RUNning the Program. Type in 
CLS and press the RETURN key. You will see the text window 
is clear. Now type in CLG and press the RETURN key. You 
will see the graphics window is clear. 


1. 
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Write a program to PRINT your name in double height on 
the screen. Add colour and also the flashing effect. 
Prepare a program by using the VDU statement to PRINT 
the name of your school on the screen (see USER GUIDE 
for codes). 

Also use УРО 31,12,10 to set the TAB(12,10) so that the 
first alphabet of the name of your school will appear in the 
12th column and 19th row. 

What is the output of the following programs? Explain 
each of the statements. 
() 10 MODE 5 

20 VDU 28,2,25,20,5 : COLOUR 130: CLS: COLOUR 1 

30 PRINT "WHAT IS YOUR NAME"; 

40 INPUT N $ 

50 PRINT "HELLO'";N $ 
(i) 10 MODE 2 

20 vDU 24,400;200;1100;900; 

30 GCOLO,130: CLG 

40 MOVE 400,20 

50 DRAW 1100,900 

60 MOVE 400,900 

70 DRAW 1100,200 


Point out the error(s) in the following statements and cor- 
rect them. 

(à PRINT CHR (132) "INCOME ТАХ" 

(i) VDU 24,800,1501200,850 

(ü) VDU 24,1000;600;200;1000 

(iv) VDU 28;5;15;20;4 

(у VDU 28,15,10,8,5 

(v) PRINT CHR $ (130); CHR $ (136); CHR (141) "* DR. Н.С. 

. SHARMA *" 

Which colour do you get by using the following function 
keys in MODE 7 along with shift key? 

(i) fl (ii) fS. (iii) £7. 

Which user-defined function key is used to produce the 
following effect in MODE 7 along with shift key? 

(i) flashing on, (ii) flashing off. 

Which character code is used to get the double height text? 
Modify Program 5 so that the word INDIA will appear in 


flashing red and cyan colours. 
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Disc Handling 


A user cannot save a program on a new disc until it is 
formatted. 

Formatting The formatting of a disc is the process of 
preparing tracks and sectors on the new disc so that it can store 
any program in them. These tracks and sectors are the 
reference marks of memory location. It also creates a catalogue 
on the disc. 


Label 


PROTECTION 
NOTCH 


INDEX MARK 
CENTRE HOLE 


HEAD SLOT 


[€——- FLOPPY DISC 


Fig. 19.1 


Procedure for Formatting a Disc 
l. Insert the UTILITY DISC. з 
2. Enter *ЕОКМ4@ or *FORM89 for 40 track and 89 track 
disc respectively and press the RETURN key. 
3. The following message will appear on the screen. 
Format which drive? 
Enter 0 and press the RETURN key. 
Another question will appear now 
Do you really want to format drive 0? 
(Do not reply at this point; just follow the next step (4). 
4. Remove the UTILITY DISC. 


oo 
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Insert the disc which is to be formatted. 
Then enter Y and press the RETURN key. 

You will see the formatting process going on. The 
number will appear on the screen. 
Another question will appear when formatting is over. 
Disc formatted - - repeat (Y/N)? 
If you have more discs to format then remove the disc from 


. the disc drive and insert another which is to be formatted; 


then reply Y and press the RETURN key. 
Otherwise enter N and press the RETURN key. 


Zero Track 


Sector 


FORMATION OF 
TRACKS AND 
SECTORS 


Fig. 19.2 


PROGRAM SAVING 


Saving Saving is the process of stoting a program somewhere 
other than in the computer. The user can save a program on a 
magnetic tape or disc. 

Procedure to Save on Disc 


19 


2. 
%; 


Prepare the program or load the program which is to be 
saved. 

Insert the disc on which you want to save this program. 
Type SAVE “name of the program” and press the 
RETURN key. The name of the program should have, at 
most, 10 characters. 
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Fig. 19.3 


When the > prompt symbol appears on the screen, type 
*CAT and press the RETURN key to view the catalogue of 
the disc and confirm that your program is saved. If a pro- 
gram is saved the name of the program will appear in the 
catalogue. If it is not saved, then repeat the procedure. 


Procedure to save on Tape (Cassette) 


1" 


2 


87 


Dmi 


Prepare the program or load the program which is to be 

saved. 

Connect the tape drive with the computer and electric sup- 

ly. 

E the tape in the position where you have to save your 

program 

Туре *TAPE and press the RETURN key 

Type SAVE "name of the program" and press the 

RETURN key. 

The message will appear *RECORD then RETURN" 
Press both the RECORD and PLAY keys of your tape 

recorder and then press the RETURN key. 

You will see the tape moving. The prompt symbol > will 

appear when the program is saved. 

Rewind the tape and load the program which was saved by 

you to see whether your program has been saved or not. 
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BACKUP 


Sometimes it is necessary to have a duplicate copy of the soft- 
ware so that it can be used in case of failure of the original. 

Procedures or equipment that are available for use in the 
event of failure or overloading of the normally used procedures 
or equipment are called ‘BACKUPS’. 


Procedure to Prepare a Backup 

1. Type *ENABLE and press the RETURN key. 

2. Туре *BACKUP 0 0 and press the RETURN key. 

3. The following message will appear: 
Copying from drive 0 to drive - - 

Enter 9 and press the RETURN key. 

4. Insert the source disc and hit a key. 

5. Insert the destination disc and hit a key. 
Repeat the procedures 4 and 5 until the complete 
BACKUP is done, for which you will be instructed by the 
computer. You should read the messages carefully and act 
accordingly. 

6. When the complete BACKUP is obtained you will see the 
prompt symbol. Type *CAT to see the catalogue available 
in the destination disc or RUN the program to see that a 
proper BACKUP has been obtained. 


DELETE 


The DELETE statement is used to erase the program from 
the disc. For this the user has to insert the disc in which the 
particular program (which is to be deleted) is available. The 
format is as follows: 

*DELETE "name of the program" 

Let us presume, you want to erase a program named 
TRAINS from a disc. For this you have to type, 

*DELETE "TRAINS" 

Press RETURN key. 

Now take a list of the catalogue and you will see that the pro- 

gram TRAINS is not in it. 
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Sample Programs 


In this chapter you are given some sample programs. You are 
advised to read the programs carefully, understand them com- 
pletely and then try them on your microcomputer. It would be 
better still if you modify these programs and devise your own 
by using these programming ideas. 

These programs have been provided merely as a guide for 
young users. 


Program 1 
L. 
10 CLS: REM* TABLE OF М, N^2, N73, 1/N* 
20 PRINT TABLE (B)" N", ' Nom М^З" 5 
ЗОРНМТ"" 
40 FOR I- 1 to 10 
50 N-I 
60 5=1^2 
70: С=123 
80 R=1/I 


B5 В=ІМт(А*100)100 
90 PRINT N,S,C,R 


100 NEXT I 
110 END 


Program 2 

zm 

10 CLS: PRINTTAB (12,2) "COMPOUND INTEREST" 
20 PRINTTAB (12,3) “= = = = ] 
30 INPUTTAB (2,4) "Enter Principal in Rs"; P 

40 INPUTTAB (2,6) “Enter rate of interest in 9; EH 
50 INPUTTAB (2,8) “Enter time in years"; T 

80 РНІМТТАВ (2,10 "Select codenumber — — " 


1/N" 


70 PRINTTAB (2,11) “Compounded yearly — — "xt" 
80 PRINTTAB (2,12) “Compounded half early о” 
ЭР PRINTTAB (2,13) "Compounded quarterly — 4" 


10 INPUTTAB (2,16) "Enter code number. 
105 LET R= R/N: LET T- T*N 
130 LET A- P*(1 + (/100) ^T 
140 LET A= INT (A*100]100 
150 LETI-A- P 

160 PRINTTAB (2,20) “Amount Rs”;INT (A*10/100 

170 PRINTTAB (2,22) “Compound interest- — Вв”; INT (1* 102/100 


"М 
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180 PRINTTAB (2,16) “Туре RUN to restart” 
190 END 


Program 3 
Sank 
10 CLS ! 
20 PRINTTAB (8,3) "FACTORIAL 
30 INPUTTAB (5,6) “ENTER A POSITIVE INTEGER"; N 
40 IF N > 34 THEN PRINTTAB (5.8) “TOO BIG FOR ME”: FOR wait= 1 TO 
2000: NEXT wait: PRINTTAB (31,6)” “:PRINTTAB (5,8)“" :GOTO30 
50 LETM=1 3 
60 FORK=1 TON 
70 M- M*K 
80 NEXTK 
90 PRINTTAB (3,15) "FACTORIAL OF "sN;UIS'M 
100 END 


Program 4 
5018 


10 CLS 
20 PRINT `° “THIS PROGRAM GIVES YOU AN ORDER OF TWO 


NUMBERS.” Д 

30 INPUT "ENTER FIRST NUMBER A 
40 INPUT "ENTER SECOND NUMBER ':B 
50 РАМТ" :PRINT’ ” 
80 IFA« B THEN GOTO 100: PRINT" " 
70 IF А> B THEN GOTO 120: PRINT " 
80 РНІМТ? “ВОТН NUMBERS ARE EQUAL." 
80 сото 130 

100 PRINT A; "15 LESS THAN":B 

110 GOTO 130 

120 PRINT A; IS GREATERTHAN'';B 

130 END 


Program 5 
>a 


10 LET C=0 
20 CLS:PHINT "THIS PROGRAM COUNTS THE WORDS IN THE GIVEN 


SENTENCE. "':PRINT" " 
30 INPUT "ENTER THE WORD WHICH IS TO BE COUNTED & PRESS THE 


RETURN КЕҮ. А6 


40 PRINT " “' :PRINT " ” 
50 PRINT “ENTER THE WORDS & PRESS THE RETURN KEY AFTER 


EACH WORD AND DO NOT FORGET TO PUT FULL STOP AT THE END” 
60 INPUT BS 
70 IF B $= “.“ THEN 120 
80 IF B$=A $ THEN 100) 
90 GOTO 60 
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10Qn LET C- C 1 

110 GOTO 80 

120 PRINT “ * :PRINT * ” қ 5 
130 PRINT ' ' ' THE WORD А $;"' OCCURS":C; “TIMES. 
140 END 


Program 6 
EX 
10 CLS: PRINT ' THIS PROGRAM REPLIES TO YOUR QUERY REGARDING 
THE NUMBER OF BOOKS ON THE SUBJECT IN YOURSCHOOL LIBRARY." 
20 PRINT’ "ENTER—NAME OF THE SUBJECT OR E TO END THE 
PROGRAM — PRESS THE RETURN KEY." 
30 INPUT RS:LET K $= MIDS (RS, 1,3) 
40 READ 58, N.H,E,O: LET N $ MID $ (S $,1,3) 
50 ІҒ5%- “222” THEN PRINT” “THERE IS МОТ A SINGLE BOOK ОМ” 
:R$;'" IN OUR ИВНАНҮ."':НЕ5ТОВЕ: GOTO20 
80 IFRS="E" THEN 230 
70 IFK$< > N$ THENAD 
80 РНІМТ”“ТНЕ SUBJECT";S S; "АНЕ "'; N; "IN THE LIBRARY.” 
ЭФ PRINT “IN HINDI MEDIUM": H: PRINT “IN ENGLISH MEDIUM"; 
ЕРНІМТ” IN OTHER MEDIUM";Ø 
100 RESTORE 
110 GOTO 20 
120 DATA PHYSICS, 250, 120, 1 20,10 
130 DATA BIOLOGY, 309,1 50,90,60 
140 DATA MATHEMATICS, 540,300,240,0 
150 DATA CHEMISTRY, 302,140,160,2 
160 DATA SPORTS,1 06,75,28,2 
170 DATA HISTORY,182,155,15,12 
180 DATA GEOGRAPHY, 1 1 3,76,34,3 
190 DATA ENGLISH, 280,0,280,0 
200 DATA HINDI,200,200,0,0 
210 DATA URDU,602,0,0,0 
220 DATA ZZZ,0,0,0,0 
230 END 


20 PRINT TAB(4,3) "ENTER A WORD OR SENTENCES” 
25 PRINT TAB (4,4) “По not use commas) ” 

30 РНІМТТАН(4,5):----------” 

“40 INPUTK $ 

50 РНІМТТАН(4,7):----------- 

6D L= LEN(K $) 


70 РОВ № 1 TO L STEP 1 
BD PRINT TAB(15) MID $ (K S, N,1): REM* SPLIT OFF 1 CHARACTER AT A 
TIME* 


SD NEXT N 
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100 PRINT TAB (4) = 
110 PRINT” "PRINT" ":PRINT" " 
120 INPUT TAB (2) "DO YOU LIKE TO SEE THE NEXT PROGRAMME 
(Ү/МУ;АФ 
130 IF AS="Y" THEN GOTO 160 
140 IF A $= “М” THEN PRINT ''* * GOOD BYE**": GOTO 270 
150 PRINT "REPLY UNACCEPTED":GOTO 120 
180 CLS: PRINT TAB (4,3) "ENTER A WORD OR SENTENCES” 
185 PRINT TAB (4,4) “Во not use сотта) ” 
170 PRINT ТАВ(4,5)“----------” 
180 INPUT BS 
190 L= LEN (B $) : REM * COUNTS CHARACTERS* 
900 PRINT " :PRINT" ":РВІМТ “= = = = = = ":PRINT “REVERSE OF 
ABOVE ":PRINT ' 
910 FORN=LTO1 STEP: —1 
220 PRINT MID $ (B $,N,1);"' ":: REM*LAST CHARACTER FIRST“ 
230 NEXTN 
240 PRINT“ " 
250 PRINT"'==================” 
260 PRINT “TYPE RUN TO RESTART” 
270 END 
Program 8 
Sk, 
10 MODE 1: COLOUR 131 : CLS: а ae 
20 PRINT TAB (10,2) “SIMULTANEO n А 
30 PRINTIAR CLA “THIS PROGRAM GIVES THE SOLUTION OF": PRINT" 
EQUATIONS A1X+B1 Y+ C1 =Ø AND A2X+ В2Ү*С2= 0: PRINT" ": 
PRINT" " 
40 PRINT "ENTER COEFFICIENT OF X: A1 & A2 ARE”;: INPUT AT, A2: 
PRINT е” ; 
50 PRINT "ENTER COEFFICIENT OF Y :B1 & B2 ARE"; : INPUT В1.В2: 
PRINT” "° 
GU PRINT "ENTER CONSTANT :C1 & C2 ARE™;:INPUT C1, C2: PRINT 
70 terse + Bo B1*C2)(B1*A2— A1*B9): Y= (A1*C2- C1*A2y 
(B1*A9— A1*B2) a 
ВО PRINT “X="; X:PRINT '' ":PRINT “Y=";Y 
Эр FOR Y=1 TO 1000: NEXT 
ТОР PRINT“ : PRINT" " 
110 PRINT "WANT ANOTHER GO (Y/N)- "'; 
190 INPUTAS 
130 IFAS- "Y" ТНЕМ10 
140 END 


Program 9 
zat. 
30 MODE 1 
40 GCOL (0,2 
50 GOLOUR 128: CLS 


E 
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60 COLOUR Ø 
70 PRINTTAB (9,3) "KENDRIYA VIDYALAYA” 
80 COLOUR 3 
ЭФ PRINTTAB(11,5) “Mathematics Lesson” 
100 COLOUR 2 
110 PRINTTAB (11,7) “Geometrical Figures” 
120 COLOURS 
130 PRINTTAB (8.9) “Which figure do you want" 
140 PRINTTAB (13,11) “Мате of the figure” 
150 PRINTTAB (13,13) "1 Acute "ТАВ (24,13)"2 Right" 
160 PRINTTAB (13,15) "З Obtuse” TAB (24,1 5) "4 Square" 
170 РВІМТТАВ (9,17) “Enter the number (1 -4)"; 
180 K=1 
190 COLOUR3 
200 PRINTTAB (31,17)  * 
210 INPUT ТАВ(31,17)М 
220 IFN=K THEN GOSUB 290 
230 IFN=K+1 THEN GOSUB 390 
240 IFN=K+2 THEN GOSUB 500 
250 IFN=K+3 THEN GOSUB 630 
260 IFN> 4 THEN GOTO 200 
270 GOTO 170 
280 END 
290 CLS: MOVE 500, 700: DRAW 800,700: DRAW 600,900 
300 PLOT 85,509,700 
310 PRINTTAB (19,14) “Тһе triangle whose angles” 
320 PRINTTAB (10,15) “аге less than 90 degree is" 
330 PRINTTAB (19,16) “known as an Acute angled” 
340 PRINTTAB (10,17) “triangle” 
350 PRINTTAB (17,11) "Acute" 
360 PRINTTAB (8,29) “Press SPACE BAR То Continue” 
370 REPEAT UNTIL GET $=" ":CLS: GOTO 130 
380 RETURN 
390 CLS:PRINTTAB (10,14) “Тһе triangle whose опе" 
400 PRINTTAB (10,15) "angle is 90 degree is known” 
410 PRINTTAB (10,16) “а a Right angled triangle." 
420 PRINTTAB (17,11) "Right" 
430 М0УЕ500,700 
440 DRAW 800,700 
450 DRAW 500,850 
460 PLOT 85,500,700 
470 PRINTTAB (8,29) “Press SPACE BAR To Continue" 
480 REPEAT UNTIL GET $=" ":CLS: GOTO 130 
490 RETURN 
500 CLS: PRINTTAB (11,14) “The triangle whose опе” 
510 PRINTTAB (11,15) "angle is greater than 90" 
520 PRINTTAB (11.16) “deg. and less than 189 degree" 
530 PRINTTAB (11,17) “is known as an Obtuse angled" 
540 PRINTTAB (11,18) "triangle." 
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550 PRINTTAB(17,11) "Obtuse"" 

560 MOVE 500.700 

570 DRAW 800,700 

580 DRAW 450,900 

590 PLOT 85,500,700 

БОО PRINTTAB (8,29) "Press SPACE BAR To Continue” 
810 REPEAT UNTIL GET $=" ":CLS: GOTO 130 

620 RETURN 

630 CLS: PRINTTAB (11,14) “Тһе quadrilateral whose" 
640 PRINTTAB (11,15) "all sides are equal and" 

850 PRINTTAB (11,16) “each angle is a right angle" 
660 PRINTTAB (11,17) “is known as SQUARE.” 

870 PRINTTAB (16,11) "Square" 

880 MOVE 500,700 

890 DRAW 720,700 

700 PLOT 85,720,910 

710 DRAW 500,900 

780 PLOT 85,500,700 

730 PRINTTAB (B,29) "Press SPACE BAR To Continue" 
740 REPEAT UNTIL GET $=" "': CLS:GOTO 130 

750 CLG: GOTO 90 

760 RETURN 

770 END 


Program 10 
>L. 
10 НЕМ“ QUE AND ANS * 
20 CLS: М-20: REM* В GUE* 
30 DIM G $ (М) 
40 T $= "CAPITAL CITIES": REM* TITLE OF TEST* 
50 F- 0:REM*FLAG* 
60 НЕМ“ READ IN QUE AND ANS* 
70 FOR N- 1 TO M STEP 1 
8D READ G $ (N) 
90 NEXT М 
100 S- 0: НЕМ" SET SCORE TO ZERO* 
110 CLS: REM* CLEAR SCREEN* 
12р PRINT TAB (12,2) "COUNTRY & CAPITAL": PRINT '* ” :PRINT " " 
130 PRINTTAB (4,4) "WHEN EACH QUESTION APPEARS, KEY" 
140 PRINT “ІМ YOUR ANSWER. THEN PRESS"; 
150 PRINT "RETURN KEY.” : PRINT" " : PRINT“ "' 
180 PRINT “IF YOUR ANS ARE WRONG, DO YOU"; 
170 PRINT "WANT TO KNOW CORRECT ANSWER?": PRINT" " 
180 INPUT “ANSWER YES OR NO";K $ 
190 REM" IF ANS IS YES, FLAG F IS SET TO 1* 
200 IF K $=""YES" THEN Ғ- 1: GOTO 240 
210 IF K $="NO" THEN F= 0: GOTO 240 
220 PRINT "REPLY UNACCEPTABLE" : GOTO 180 
230 НЕМ" PRESENT QUE AND ASK FOR ANS* 
940 CLS: REM* CLEAR SCREEN* 


126 BBC BASIC PROGRAMMING 


250 FOR N=1 TO MSTEP 2 

260 PRINT ' "WHAT IS THE CAPITAL ОР”; Q $ (М); : INPUT О; AS 

270 IF A$-G $ (N+1) THEN S=S+1: СОТО 310 

280 IF F=Ø THEN 310 

290 IF F2 1 THEN PRINT "WRONG":PRINT" ” 

ЗОО PRINT “THE CORRECT ANSWER IS." О S(N+ 1); “=” 

310 NEXT N 

320 REM* PRESENT SCORE AND OBSERVATIONS* 

330 CLS: НЕМ" CLEAR SCREEN* 

340 PRINTTAB(12) “RESULTS” : PRINT “ " : PRINT * " 

350 W= (M/2)- S:P- (S/ (S+ W)* 100: REM* PERCENTAGE SCORE* 

360 W= (М/2] – S:REM* WRONG ANS* 

370 PRINT "YOU ANSWERED"; S; CORRECTLY." ` 

380 PRINT “YOU ANSWERED"'; W;"' INCORRECTLY."'; PRINT" '* 

390 PRINT “THIS REPRESENTS A SCORE OF"; p. PERCENT." PRINT ** © 
400 IF P< =40 THEN PRINT “NOT TOO GOOD WAS IT?": GOTO 440 
410 IF P > -41 AND P < 60 THEN PRINT "NOT BAD":"GOTO 440 
420 IF P > =60 AND P « 80 THEN PRINT "GOOD SCORE":"GOTO 440 
430 PRINT "ABSOLUTELY MAGNIFICENT" 

440 PRINT " PRINT " PRINT “© 

450 INPUT "DO YOU WANT TO TRY AGAIN (YES/NO):K $ 

460 IF K $= "YES" THEN 10 

470 IF K $= "NO" THEN PRINT "GOOD BYE": GOTO 570 

480 PRINT "REPLY UNACCEPTABLE": GOTO 450 

490 REM******** 

500 REM' SUB ROUTINE.P.LINE* 
510 PRINT " i5 
520 REM* GUE AND ANS PAIRS* 


530 DATA FRANCE, PARIS,USSR, MOSCOW JAPAN, TOKYO 


540 DATA SWEDEN,STOCKHOLM,UK, LONDON,CSSR, PRAGUE 
. 550 DATA CHINA, BEIJING, NEPAL, KATHMANDU, USA, WASHINGTON 
560 DATA INDIA, DELHI 


570 END 
Program 11 
>| 

10 CLS 


20 MODE1:COLOUR 2:PRINT '*** CHEMISTRY QUIZ FOR ЭТН CLASS*** 
30 PRINT " " 


40 PRINT" " 


60 COLOUR 2 

70 LET C- 0 

80 READ C $, TS 

90 IF C $= "ZZZZ" THEN 290 
100 PRINT "WHAT IS THE SYMBOL CF "';“ "С; 
110 COLOUR S 
180 INPUTAS 
130 IF A $= T$ THEN 230 ELSE SOUND 2, - 15,10,5 
140 PRINT 
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150 PRINT “МО. SORRY! THE SYMBOL OF "C $; “”;” 


160 COLOUR 1: PRINTS 

170 PRINT" 

180 PRINT “Please wait for next question" 
190 X $= INKEY $ (250) 

800 COLOUR 2 

210 PRINT" " 

220 GOTO 80 

230 PRINT " " 

240 PRINT “YES! THAT'S RIGHT" 
850 COLOUR 2 

880 LET C- C« 1 

270 PRINT“ 

980 GOTO 80 

290 PRINT "THAT'S THE END OF THE QUIZ” 
300 PRINT "YOUR SCORE IS"; C;"" OUT OF 30” 
310 LET X= (E/30* 100 

320 PRINT “ACCURACY =" ;INT (0"%” 
330 REM* DATA* 

340 DATA BARIUM, Ba 

350 DATA CALCIUM, Ca 

360 DATA CHLORINE, СІ 

370 DATA ARGON, Ar 

380 DATA ALUMINIUM, Al 

390 DATA ZING, Zn 

400 DATA MERCURY, Hg 

410 DATA SILVER, Ag 

420 DATA GOLD, Au 

430 DATA HELIUM, He 

440 DATA CADMIUM, Cd 

450 DATA COBALT, Co 

480 DATA CHROMIUM, Cr 

470 DATA CARBON, С 

480 DATA SODIUM, Na 

490 DATA POTASSIUM, K 

500 DATA PHOSPHORUS, Р 

510 DATA SULPHUR, S 

520 DATA OXYGEN, O 

530 DATA BROMINE, Br 

540 DATA NITROGEN, М 

550 DATA MAGNESIUM, Mg 

580 DATA MANGANESE, Мп 
570 DATA NEON, Ме 

580 DATA IODINE, | 

590 DATA BISMUTH, Bi 

800 DATA LEAD, Pb 

810 DATA RADIUM, Ra 

820 DATA RADON, An 

830 DATA SILICON, Si 
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640 DATA 77277, END OF FILE 


You may add some more elements in the DATA of the above 
program. 
Program 12 
2115 
10 MODE 2 
20 CLS: REM * DIGITAL CLOCK* 
30 5=0: M=0: H-0 
40 PRINTTAB (10,10; “” TAB (13,19); 
50 COLOUR 1 
80 PRINT TAB (7,10);H 
70 COLOUR? 
80 PRINT TAB (10,10; M 
90 COLOUR4 
100 PRINT ТАВ(13,10);5 
110 GCOL 0,5 
120 MOVE 400,600: DRAW 1 000,6 
DRAW 400,600 
130 S=S+1 
140 X= INKEY (100) 
150 IFS< > 6 THEN4D 
160 5=0: М= М+ 1 
170 IF M« > 60 ТНЕМ40 
180 M=0:H=H+1 
190 IF H< > 24 THEN 40 
200 H= 0 
210 GOTO60 
220 END 


Program 13 
SUS 
10 MODE 2: COLOUR 133: CLS 
20 COLOUR 135 : COLOUR 1 : PRINTTAB (1,1) "y": PRINTTAB (1 8,30) 
"X": PRINTTAB (1,30) “(0,0)”: COLOUR 12 А 
30 PRINTTAB (4,4) “GRAPH Y = хә" 
40 REM * AXIS * 
50 FORN- 80 TO 1200 
80 PLOT68,N,20 
70 NEXT N 
80 FORM- 30 TO 1000 
90 PLOT 68,40, M 
100 NEXT M 
105 НЕМ“ Plotting the graph * 
110 ҒОНХ- 20 TO 1200 
120 Y= X2 
130 PLOT 68,X, Y 
140 NEXT X 
150 END 


";TAB(16,19)" ” 


00: DRAW 1000,789; DRAW 400,780: 
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Program 14 
Sk 
10 CLS: Н=@ W- 0 
20 MODE 1: COLOUR 1 
30 PRINT TAB (15,6) “MATHS TEST": COLOUR2 
40 X= RND (19): Y= RND (10: Z= RND (10) 
50 PRINT TAB (14,12) " "X; "t; Y; Z" ="; 
60 INPUT ТАВ (25,12),А 
70 IF A=X*Y*Z THEN 130 
80 FOR T- 1 TO 3000: NEXT T 
90 PRINT ТАВ (14,12); ©“ WRONG ":W= W+ 1: PRINT- TAB (20,3) 
"WRONG ANS ="; W 
100 FOR T- 1 TO 3000: NEXT 
110 PRINT TAB (14,12); “TRY AGAIN" 
120 FORT- 1 TO 3000: NEXT Т: БОТО 50 
130 PRINT TAB (14,12) CORRECT! "Rz R+1: PRINT TAB (20,2) 
"RIGHT ANS="";R 
140 FOR T- 1 TO 3009: NEXT T 
150 INPUT TAB (12,12) "ANOTHER QUESTION? (Y/N) ", 0% 
160 FOR T- 1 TO 2000: NEXT Т 
170 IF Q $= "Y" THEN GOTO 20 
180 PRINT TAB(12,12) "YOUR SCORE IS" ; INT((R* 100) (R- W)) ; "9%" 
190 END К 
If you want to make it still more complicated, replace the line 


number 40,1.е. RND (19) by RND (20) ог RND (30). 


Program 15 
>L 
10 MODE 2: COLOUR 12 
20 РАІМТТАВ (4,4) " sarga m" 
30 FORN=1 TO 2 
40 FORP=1 ТОВ 
50 READA 
80 SOUND 1, – 12,А,30 
70 NEXT P 
80 FORW- 1 ТО 250: NEXT W 
90 FORR- 1 TO8 
100 READ B 
110 SOUND 1, – 15.815 
120 NEXT R 
130 FORW=1 TO 300: NEXT W 
140 RESTORE 
150 NEXT М 
160 DATA 56,54,72,76,84,92,1/00,104 
170 DATA 104,100,92,84,76.72,64,56 
180 END 


Program 16 
> L. 
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10 MODE 2: COLOUR 134: CLS: COLOUR 5 
20 PRINTTAB (3,10) "MUSIC PROGRAM 1" 
30 COLOUR 4 
40 PRINTTAB (2,25) "PRESS ESCAPE TO EXIT." 
45 REM *Please Refer USER GUIDE for ENVELOPE Statement* 
50 ENVELOPE 1,1,0,0,0,0,0,0,1 27,-8,-10,- 1,1 96,0 
60 REPEAT E 
70 READ amplitude, pitch, duration 
80 IF amplitude Ø, THEN RESTORE 
90 SOUND1,1, pitch, duration 
100 UNTILFALSE 
110 DATA - 15, 189,19, 15,117.10, -15,129,10 
120 DATA -15,117,10,-15,101,10,- 15,108,5 
130 DATA -15,11 7,5,-15,121,10,- 15,109,10 
140 DATA -15,129,10,-15,117,1 0,-15,101,20,0,0,0 
150 END 
Line 45 can be omitted without affe 
program. 


Program 17 
2L. 
10 MODE 2: COLOUR2 
20 CLS 
30 PRINTTAB (6,8) "SARANG' 
40 РНІМТТАВ(6,9)“----- ===" 
50 FORS- 1 TO2 
60 FOR P- 1 TO10 
70 READF 
80 SOUND 1, — 14,F,7 
90 NEXT P 
100 RESTORE 
110 NEXT S 
120 DATA 133,141 ,153,161,177,181 
130 DATA 181 :177,181,153,144 133 
140 FORX=1 TO 3 
150 FORG-1 TO 40 
160 READ G 
170 SOUND 1, — 14,6,10 
180 NEXT а 
190 RESTORE 
800 NEXT X 
210 RESTORE 
280 FORR- 1 TO 10 
230 READH 
240 SOUND 3,- 10,H,10 
250 NEXT R 
260 RESTORE 
270 FORS- 1 TO 40 
980 READ M 


cting the output of the 
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290 SOUND 1,— 14,M.15 

300 NEXT S 

310 RESTORE 

320 FORA-1 TOS 

330 READZ 

340 SOUND 2, - 5,27,20 

350 NEXTA 

360 DATA 133,141,153,161,177,181 
370 DATA 181,177,161 ,153,141,133 
380 END 


Program 18 
2L 
10 MODE 2: COLOURS: НЕМ“ SWAGAT* 
20 GcoL 0,4 
30 VDU 23,225,255,B,83,73,73,59,8.8 
40 PRINT ТАВ(6,15) CHR $ (225): FOR W=1 170500: NEXT: SOUND 1, 
-15,133,10 
50 VDU 23,226,0,96,144,200,8,8,8,8 
60 PRINT TAB (6.14) CHR (226): ҒОНМ/-1 TO 500: NEXT: SOUND 1, 
-15,141,10 
70 VOU 23,227 ,255,0,0,127,80,32,0,0 
BD PRINT TAB (7,15) CHRS (227) : FOR W= 1 ТО500: NEXT: 
SOUND 1, - 15.153,10 
90 VDU 23,228,255,9,121,129,137,125,25,40 
100 PRINTTAB (8,15) CHR $ (228): FORW 1 TO 500: NEXT: 
SOUND 1, - 15,161,10 
110 VDU 23,229,0,0.6,9,9,9,9,5 
120 PRINT TAB (8,14) СНА (229): FOR М/- 1 TO 500: NEXT: 
SOUND 1, - 15,177.10 
130 VDU 23;230,255,58,10,10,58,66,62,2 
440 PRINTTAB (9.15) CHRS (230): FOR W= 1 TO 500; NEXT: SOUND 1, 
-15,181,10 
150 VDU 23,231 ,255,130,158, 162, 162,158,130,130 
160 PRINTTAB (12,15) CHR S (231): FOR W= 1 ТО 500: NEXT: SOUND 1, 
-15,133,10 
170 VDU 23,232,0,16,56,68,130,130,130,130 
180 PRINTTAB (12,14) CHRS (232): FOR W= 1 ТО 500: NEXT: SOUND 1, 
-15,141,10 
190 ури 23,233,255,37.101 ,133,101,141,117,5 
200 PRINTTAB (13,15) CHRS (233): РОН \/= 1 ТО 500: NEXT: SOUND 1, 
-15,153,10 
210 VDU 23,234,255,2;2,2,54,73,137.66 
220 PRINTTAB (14,15) CHAS (234): FORW 1 TO 500. NEXT: SOUND 1, 
-15,161,10 
230 VDU 23,235.255,58,10,10,58,66,62,2 
240 PRINTTAB (15,15) CHAS (235): РОН W= 1 ТО 500: NEXT: SOUND 1, 
-15,177,10 
250 VDU 23,236,255,106.42,42.122,42,10,10 
260 PRINT TAB (7.18) GHR (236): FOR W= 1 TO 500: NEXT: SOUND 1, 
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-15,133,10 > 

270 VDU 23,237,0,112,136,196,4,4,4,4 

980 PRINT TAB (7,17) СНН% (237): FORW- 1 TO 500: NEXT: SOUND 1, 
-15,133,10 

290 VDU 23,238,255,37,37,37,29,5,5,5 


300 PRINTTAB (8,18) CHR $ (238) : FOR W= 1 TO 50: NEXT: SOUND 1, 
= 15,141,190 


310 VDU 23,239,255,2,2,2,54,73,137,66 


"320 PRINTTAB (9.18) CHRS (239): FOR W= 1 TO 500: NEXT: SOUND 1. 
-15.153.10 


330 VDU 23,240,248,224 224,224,204 224.224.248 


340 PRINTTAB (11,18) CHRS (240: FOR W= 1 TO 500: NEXT: SOUND 1. 
- 15,161,109, 


350 ури 23,241 .255,36,36,36,252,164,228,4 


360 PRINTTAB (12,18) CHR $ (241); “.“: FORW- 1 TO 500: NEXT: 
SOUND 1,-15,177,10 


370 VDU 23,242,255,34,34,34,30,6,1 0,18 


380 PRINTTAB (13,18) CHRS 242): FOR W= 1 TO 500: NEXT: SOUND 1, 
-15,181,10 


390 VDU 23,243,31 ,7,7,7,7,7,7,31 


400 PRINTTAB (14,18) CHR $ (243): FOR W= 1 TO 509: NEXT: SOUND 1, 
-15,181,10 


410 VDU 23,244,255,229 24 :37,83,37,21,229 


420 PRINTTAB (4,90) CHR $ (844): FOR W= 1 TO 500: NEXT: SOUND 1 
-15,177,10 


430 VDU 23,245,255,36,36,36,28,4,4,4 


440 PRINTTAB (5,20 CHR $ (245): FOR W= 1 To 500: NEXT: SOUND 1, 
-15,161,10 


450 VDU 23,246,255,1 7,253,149,149,245,1 7,17 

460 PRINTTAB (6,20) CHR $ (246): FOR W= 1 TO 500: NEXT: SOUND 1, 

= 15,153,10 

470 VDU 23,247 ,255,8,8,47 ,48,32,40,24 

480 PRINTTAB (8,20) CHR $ (247): FOR W= 1 TO 500: NEXT: SOUND 1, 
-15,141,10 

490 VDU 23,248,255,19,250,138,1 38,250,10,10 

500 PRINTTAB (9,20) CHR $ (248): FOR W= 1 TO 509: NEXT: SOUND 1 
-15,133,10 

510 VDU 23,249,255,36,36,36,100,36,4,4 


520 PRINTTAB (10,20) CHR$ (249): FOR W= 1 TO 500: NEXT: SOUND 1, 
= 15,133,10 


530 VDU 23.250,255,8,248,136,136,136,136,72 


540 PRINTTAB(11 (80) CHRS (250: FORW- 1 TO 500: NEXT: SOUND 1, 
-15,141,10 


550 VDU 23,251,255,8,63,73,73,59,8,8 

56@ PRINTTAB (1 3,20) СНА 8 (251): FOR w 
-15,153,10 

570 VDU 23,252,255,8,8,40,48,32,40,24 


580 PRINTTAB (14,20 СНН 8 (252): FOR = 1 TO 500: NEXT: SOUND 1, 
-15,181,10 


= 1 ТО 500: NEXT: SOUND 1, 
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590 VDU 23,253,255,10,250,138,138,138,138,74 . 

600 PRINTTAB (15,20 CHR $ 253): FOR W= 1 TO 500: NEXT: SOUND 1, 
-15,177.10 

610 VDU 23,254,255,8,48,64,48,80,68,120 

620 PRINTTAB (17,20) CHR (254): FOR W= 1 TO 509: NEXT: SOUND 1, 
-15,181,10 

630 VDU 23,255,0,0,54,82,18,18,20,8 

640 PRINTTAB (17.19) CHR $ (255): FOR W= 1 TO 500: NEXT: SOUND 1, 
-15,181,10 

650 MOVE 239,250: DRAW 1175,250: DRAW 1175, 600: DRAW 
230,800: DRAW 230,250 

660 END 

The output of the program ‘SWAGAT is 


Бега Әг 
arate (AW) 


Элтчевт KATIA HKAT & 


Program 19 


> L 

10 CLS: Р=3.141592654: REM * AREA AND VOLUME“ 

20 PRINTTAB (10) “OPTION” 

25 PHINTTAB(1)"- = = = =":PRINT’ “:РНІМТ”" 

30 PRINT “CIRCLE 1": PRINT" 

40 PRINT SPHERE 2" PRINT" 

41 PRINT “CONE  _ — 3" РАМТ" " »- 

50 PRINT "CYLINDER .— ——— ——4 PRINT “ ”: PRINT" 
60 INPUT "EXIT PROGRAM — 5": РАМТ” > РАМТ“ 
70 INPUT "ENTER REGUIRED OPTION": N PRINT" " 
80 IF N< DORN > 5 THEN PRINT "OUT OF RANGE"; GOTO 70 
эй ON N GOTO 100,230,380,520.1000 

100 CLS: PRINT TAB (10 “THE CIRCLE": PRINT 

110 INPUT "ENTER THE RADIUS ';R:PRINT" " 

120 IF R< 0 OR R>1E20 THEN PRINT "OUT OF RANGE" GOTO 110 

130 C- 2*P*R*:A- P*R*R А 

140 INPUT “HOW MANY DECIMAL PLACES";D: PRINT" ": PRINT” ” 

450 F D< 0090 > 8 THEN PRINT “ NEGATIVE VALUES/ TOO BIG FOR 

МЕ": GOTO 140 

180 C= INT (10^ D* C (0.5) (107 D): А= INT(10^ D) *A+ (0.5) (10^ D) 

170 PRINT “THE CIRCUMFERENCE IS", C; "UNITS": PRINT” ” 

180 PRINT "THE AREA IS ”';А; “80. UNITS": PRINT" " 


+ PRINT 
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190 INPUT “AGAIN? ANS. (YES) OR(NO)"; K $ 
200 IF KS="YES" THEN 100 
210 IFK$="NO" THEN19 
220 PRINT “UNACCEPTABLE REPLY": GOTO 190 
230 CLS: PRINT TAB(1 “THE SPHERE": PRINT" ~: PRINT" 
240 INPUT "ENTER RADIUS";R :PRINT" * 
250 IF R< DORR» 1Е2@ THEN PRINT "OUT OF RANGE": GOTO 240 
260 A- 4*P*R*: V= (4/3* P*R*R*R 
270 INPUT "HOW MANY DECIMAL PLACES" D: PRINT" ": PRINT" * 
280 IF D< 0 ORD Б THEN PRINT “NEGATIVE VALUES/ TOO BIG FOR ME": 
GOTO270 
290 A= INT (10^ D)*A+ (D.5)/ (10^D): V= INT(10^D) *V.- (9.5)/ (10^ D) 
ЗОО PRINT “THE SURFACE AREA IS":A;" SQ. UNITS": PRINT" ^ 
310 PRINT “THE VOLUME IS"; V;"CUBIC UNITS": PRINT" ~ 
320 INPUT "AGAIN ? ANS. (YES) OR(NO)":K $ 
330 ЕК $- "YES" THEN 230 
340 IFK $- "NO" ТНЕМ1@ 
35M PRINT “REPLY UNACCEPTABLE": GOTO 320 
360 CLS: PRINTTAB (19) “THE СОМЕ": PRINT" ": PRINT" 
370 INPUT "ENTER RADIUS OF BASE": R:PRINT  ': PRINT" ~ 
380 IF R< 0 OR R> 1E20 THEN PRINT "OUT OF RANGE" :GOTO 370 
390 INPUT "ENTER VERTICAL HEIGHT"; H: PRINT" ": PRINT" "* 
400 IF н< DORH> 1E20 THEN PRINT "OUT OF RANGE" : GOTO 390 
410 V=P* (R^2)* (Н/З) 
480 S= (P*R* (R+ SƏR(R*Ə)+ (H^2)) 
430 INPUT "HOW MANY DECIMAL PLACES":D: PRINT" "PRINT" © 
440 IF D« DORD> 6 THEN PRINT "NEGATIVE VALUES TOO BIG FOR 
ME": GOTO 430 
450 V= INT(10^ D* V+ (05) (10^0): S= INT(10^ D)* S+ (0.5) (10^ D) 
480 PRINT “THE VOLUME IS"; V; “CUBIC UNITS": PRINT" “ 
470 INPUT "AGAIN ANS. (YES) OR(NO)":K $ 
480 IF K$="YES" THEN GOTO 380 
490 IF K$="NO" ТНЕМ10 
500 PRINT "REPLY UNACCEPTABLE": БОТО 479) 
510 REM: GIVE GOOD GUES* 
520 CLS: PRINT ТАВ(10) THE CYLINDER": PRINT" ": PRINT" © 
530 INPUT "ENTER RADIUS OF THE BASE"; R: PRINT" * 
540 IF R< ПОВ R> 1£20 THEN PRINT "OUT OF RANGE" : БОТО 530 
550 INPUT "ENTER VERTICAL HEIGHT"; H:PRINT" ” 
560 IF H< ü OR H > 1E 20 THEN PRINT “OUT OF RANGE" : GOTO 550 
570 V- P*R*R*H:S- 2*P*R* (A+) 
589 INPUT “HOW MANY DECIMAL PLACES?":D: PRINT" '* 
590 IF D< Ø OR D > THEN PRINT “NEGATIVE VALUES/ TOO BIG FOR 
ME": GOTO 580 ы. 
800 V=INT (10^ D)* V+ (0.5)(10^ D: 5= INT)10^D* S+ 
.5y(10^ D) 
610 EN ne value OF THE CYLINDER IS “;М;" CUBIC UNITS": 
PRINT" ” E 
620 PRINT “THE SURFACE AREA OF THE CYLINDER IS *;S;" SG. 
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UNITS": PRINT" ” 
630 INPUT "AGAIN ANS. (YES) OR (NO)'K $ 
640 IF K $= "YES" THEN 520 
650 IF K $= "NO" THEN 10 
660 PRINT "REPLY UNACCEPTABLE": GOTO 630 
1000 PRINT "GOOD-BYE" 
1010 END 


Program 20 

Е 
10 REM * This is а computer kaleidoscope * 
20 CLS 
30 X= RND (18) 
40 Y = RAND (23) 
50 C 128+ AND (6) Ы 
6@ PRINTTAB (X, Y) CHR $ (С); CHR $ (255) 
70 PRINTTAB (38 — X, Y) CHR $ (С); CHR $ (255) 
80 FORN- 1 TO300: NEXT 
80 GOTO 30 


Program 21 
>L: 


10 MODE 2: НЕМ" Random Circles * 

15 FOR T=1 TO 20 

20 CX- RND (1200: CY- AND (1000) 

30 R= RND (300: FOR X= – R TO R STEP B:Y- SGR(R* R- Х*Х) 
35 GCOLD,T 

40 PLOT 69,CX- X, CY-- Y 

50 PLOT 69,CX- X, CY- Y 


EIL; чүн 
10 REM This program will produce a display of ABABAB ... packing in 


Е2 ` 
З@ GCOL0.1: FOR CX- 200 TO 900 STEP 100: CY - 600 
40 PROCC (CX) 
50 GCOLØ,7: FORCX- 200 TO 900 STEP 100: CY - 500: PROCC (СХ 
ва GCOLD.2: FORCX- 200 TO 90D STEP 100: CY - 400: PROCC (CQ 
70 MOVE 100,300 
80 DRAW 100,700 
90 DRAW 1000,700 
100 DRAW 1000,300 
110 DRAW 100,300 
120 END 
130 DEFPROCC (СХ) 1 
140 R- 50: FOR X= — R TO R STEP 4:Ү=5ОӨН(Н*Н- X*) 
150 PLOT69,CX+ X,CY+ Y 
160 PLOT 69,CX+ X.CY— Y 
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170 NEXT X 
180 NEXT CX 
180 ENDPROC 


Program 23 
2L 
10 MODE 7 
20 НЕМ" TELETEXT CONTROL * 
30 PRINT CHR (134) “INDIA 15"; СНН $ (129) “МҮ COUNTRY.": 
40 PRINT CHR $ (130) “ALL INDIANS АНЕ”; СНН $ (134) "MY BROTHERS 
AND SISTERS.”; 
50 PRINT CHR (131) "AND I AM PROUD OF”;CHRS (132) “ITS 
REACH"; CHR $ (130) "VARIED HERITAGE”; 
60 PRINT СНН $ (132) “1 SHALL ALWAYS"; CHRS (130) “TRY TO BE 
WORTHY OF IT."'; ý 
70 PRINT CHR $ (133) "I SHALL GIVE RESPECT ТО”; 
80 PRINT CHR $ (130) "MY PARENTS";CHRS (131) ",TEACHERS":CHR 
$ (133) "AND ALL ELDERS”; 
90 PRINT CHR $ (134) "AND TREAT EVERY ONE WITH COURTESY.'*; 
100 PRINT СНА $ (134) "ТО MY PEOPLE AND MY COUNTRY | PLEDGE MY 
ОЕМОТІОМ.”; CHRS$ (131)" IN THEIR WELL BEING AND PROSPERITY 
ALONE LIES МҮ” CHR S (132) "HAPPINESS." 
110 REM* No. 129 for red.* 
120 REM* No. 130 for green.* 
130 REM* Мо. 131 for yellow.* 
140 REM: No. 132 for blue.* 
150 REM* No. 133 for magenta.* 
160 НЕМ" No. 134 for cyan.* 
170 REM* No. 135 for white* . 
180 END 


Program 24 
SIL 
5 REM * This a computer design * 
10 MODE 2: COLOUR 140: CLS 
20 COLOUR 1 
30 MOVE 300,300 
40 GCOLO.S 
50 DRAW 300,600 
60 DRAW 800,600 
70 DRAW 800,300 
80 DRAW 300,300 
80 MOVE 350,550 
100 DRAW 750,550 
110 PLOT 85,550,450 
120 DRAW 350,350 
130 GCOLO.11 
149 PLOT 85,750,359 
150 DRAW 750,550 
160 GCOLO.13 
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170 PLOT 85,550,450 
180 DRAW 350,350 
190 GCOLO.10 

200 LOT 85,350,550 
22р GCOLO.2 

230 MOVE 250,250 
240 DRAW 250,550 
250 DRAW 850,850 
960 DRAW 850,250 
265 DRAW 250,250 . 
270 PRINTTAB (1,4) “А computer design.” 
980 END 


Program 25 
>19 
10 MODE 2: VDUS Y 
15 VDU 24,150;150;1100;800, : НЕМ" GRAPHICS WINDOW 
18 GCOLO,135: CLG 
20 FORA=1 TO 15 
30 C= RND (15) 
40 GCOLD,C 
50 R= 40+ RND (50) 
60 X= RND (1280 
70 IF X< RORX> 1280- R THEN 60 
80 Y= RND (1024) 
90 IF Y< ROR Y> 10 24- R THEN 80 
100 VDU29,x;Y; 
110 FOR N= - R TO RSTEP 5 
190 M=SQR(R*2- №2) 
130 MOVE N.M 
140 DRAW N,- M 
150 NEXT М 
160 МЕХТА { 
170 REM: Sweet sixteen Strawberries 
180 END 


Program 26 
2L 


10 REM * MAXI, MINI and AVERAGE * 
2C=1 

3 SUM- 0 

40 READ M 

50 IF M= - 9999 THEN 170 
80 IF С> 1 THEN 90 

70 А= М 

80 T-M 

90 IF M > T THEN 130 
100 IF M > =A THEN 140 
110 A- M 
180 GOTO 140 
130 T-M 
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140 C=C+1 

150 SUM= SUM+ M 

150 GOTO 40 

170 PRINT ""MAXIMUM- Т 

180 PRINT '""MINIMUM- '';A 

190 N- C- 1 

200 PRINT "SUM"; SUM: PRINT" OBSERVATIONS"; N 
210 PRINT '"AVERAGE- ";SUM/N 

220 REM*DATA* 

930 DATA 54,87,67,45,12,90,45 

240 DATA 76,54,43,123,11 

250 DATA 83,74,93,43, - 9999 

960 END 


Program 27 
Sb. 
10 CLS 
90 PRINTTAB (5,2) CHRS (131); CHR (136);CHRS (141); "INCOME TAX 
CONSULTANT” 
30 PRINTTAB (5,3) CHRS (131);CHRS (1 36);CHR $ (141); "INCOME TAX 
CONSULTANT” 
40 INPUT '"YOUR NAME PLEASE”: N $ 
50 INPUT ‘YOUR POST PLEASE”;P $ 
60 SUM= 0:SD= 10000 
70 PRINT'"STD DEDUCTION ALLOWED 30% ОЕ THE THE SALARY ОН Rs. 
10000 WHICHEVER IS LESS." 


80 INPUT '"HAVE YOU GOT A SUM OF YOUR SALARY p.a. (Y/N) ":RS 
80 PRINT *#etseewena anes 


IDO IFRS 
130 
110 INPUT '' “ENTER SALARY FOR APRIL 87 TO MARCH 88 EXCLUDING 


HRA"; P1 :Рә,Рз,Р4,Р5,р5, Р7,РВ,РӘ,Р10,Р11,Р12 
180 SUM- P1 + P2 + P3+ P4 + P5. po. 


130 INPUT''"BONUS RECEIVED Rs.''; B 
140 INPUT ' "TOTAL arrears received Rs"; A 
150 INPUT '''ANY OTHER INCOME Rs. "'; Al 
180 SUM- SUM+ В+ А+ AI 

170 SDR=.3* (SUM) 

180 IF SDR« SD THEN SD- SDR 

190 IF SDR > SD THEN LET SD- 10000 
200 PRINT ‘’ DEDUCTIONS UNDER 80C" 
210 PRINT “= : 
220 INPUT "PF CONTRIBUTION р.а. Rs.";D1 

230 INPUT “TOTAL LIC PREMIUM PAID p.a. Rs"; DƏ 

240 INPUT “NSC PURCHASED IN THIS YEAR Н5”;ОЗ 
250 D= D1 + DP + D3 

260 IF D > 12000 THEN PD- S000 + ..3* (D- 12000) 
270 IF D > 6000 THEN PD- 6000+ .5* (D- 6000) 

280 IF D< -6000 THEN PD= D 
290 INPUT "DONATIONS PAID (806) Rs"';D4 


эла ATES Жаа RAE ARERR жайма ааа 


= "Y" THEN INPUT ‘YOUR TOTAL SALARY Rs"; SUM: GOTO 
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300 INPUT “REBATE IN INCOME TAX (96) “ir 

310 DR- (г/100)“ (D4) 

320 PRINT ''' TOTAL INCOME EXCLUDING HRA Rs"; SUM 

330 PRINT "= = = = = = = = = = = = = = "PRINT" “: PRINT "STD 
DEDUCTIONS Rs'';SD 

340 PRINT "YOUR DEDUCTIONS Rs ';D 

350 PRINT "Permissible deductions under В@С Rs"; PD 

360 PRINT “Permissible deductions under 806 Нв”; DR 

370 Ті- SUM- (SD+ PD+ DF) 

380 PRINT’ - ”:ТІ- IND(T) 

390 PRINT ''' TAXABLE INCOME Rs”; Tl 

400 IF ТІ< 18000 THEN ТАХ- Ø: GOTO 440 

410 IF TI< - 25000 THEN ТАХ- .25* (ТІ- 18000: GOTO 440 

420 ІҒТІ< =50000 THEN TAX= 1750+ .3* (TI- 85000: GOTO 440 

430 TAX= 9250+ .4* (TI- 50000) 

440 PRINT’ YOUR INCOME TAX CALCULATED TO Нв” TAX 

450 INPUT “WHETHER YOU HAVE PAID SOME AMOUNT TOWARDS ІМ- 
COME TAX (Y/N)";A $ 

460 PAID- 0 

470 IFAS '' THEN INPUT “TOTAL SUM PAID BY YOU"; PAID 1: 
PAID= PAID + PAID 1 

480 ТАХ = INT (TAX - PAID) 

490 PRINT: PRINT 

500 PRINT ""Mr/Mrs ";NS;" ";:: PRINT'POST";PS 

510 PRINT ‘YOU HAVE TO PAY INCOME ТАХ Нв”; TAX 

520 END d 

The output of the above program "INCOME TAX CON- 


SULTANT" will be 


INCOME TAX CONSULTANT 


YOUR NAME PLEASE? AK VERMA 

YOUR POST PLEASE? EDUCATION OFFICER 

STD DEDUCTION ALLOWED 30% OF THE SALARY OR Rs. 10000 
WHICHEVER IS LESS 

HAVE YOU GOT SUM OF YOUR SALARY p.a. (Ү/М/?Ү Me 
Жаа азаа а Жа яаа Ал ERMAN AE KR EIS AES ЕЕ RI қаж RETE .. 
YOUR TOTAL SALARY Rs? 48000 

BONUS RECEIVED Rs? 1200 

TOTAL arrears received Rs? 3050 

ANY OTHER INCOME Rs? 3600 

DEDUCTIONS UNDER 80C 


PF CONTRIBUTION р.а. Rs.? 4500 
TOTAL LIC PREMIUM PAID р.а. Rs? 2400 
NSC PURCHASED IN THIS YEAR Rs? 4800 
DONATIONS PAID (BOG) Rs? 5000” 
REBATE IN INCOME TAX (36? 50 

TOTAL INCOME EXCLUDING HRA Rs 55850 


жж аны 
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STD DEDUCTIONS Rs 10000 

YOUR DEDUCTIONS Rs 11700 
Permissible deductions under BÜC Rs 8850 
Permissible deductions under 80G Rs 2500 


TAXABLE INCOME Rs 34500 
YOUR INCOME TAX CALCULATED TO Rs 4600 


WHETHER YOU HAVE PAID SOME AMOUNT TOWARDS INCOME 
TAX (Y/N)2Y 


TOTAL SUM PAID BY YOU? 1200 


Mr/Mrs AK VERMA POST EDUCATION OFFICER 
YOU HAVE TO PAY INCOME TAX Rs 3400 


Program 28 

Sale 

10 MODE 1 

20 MOVE 100.100 
30 DRAW 100,1000 
40 MOVE 900.100 
50 DRAW 900,1000 
55 GCOLD,1 

60 FOR Y= 100 TO 1000 
70 PLOT 77,500. Y 
80 NEXT 


Program 29 


10 REM* THIS PROGRAM PRODUCES THE SOUND OF SIRENS 
20FORI=1 TO 10 


30 SOUND 1,— 15,96,11 
40 SOUND 1,-15,84,11 
50 NEXT 
50 END 
Program 30 
2L 
10 CLS: PRINTTAB (12,4) CHR$136;CHR $130 "SONG" 
20 FORPLAY- 1 TO2 
30 FORN- 1 TO32 
40 READ P,D 
50 SOUND 1,-15,P,D 
80 SOUND 1,0,0,0 
70 NEXT М 
80 RESTORE 
90 NEXT PLAY 
100 DATA 52,8,60,8,72,16,72,16 
110 DATA 88,8,100,8,108,16,1 08,16 
120 DATA 108,8,100,8,100,8,92,16 
130 DATA 92,8,88,16,88,16,92,16 
140 DATABB,8,72,8,72,16,80,16 
150 DATA 80,8,72,8,72,16,60,16 


SAMPLE PROGRAMS 141 


160 ПАТА72,8,88,4,80,4,72,4 
170 DATA 80,8,80,16,72,16,72,16 
180 DATA 00.00 

190 END 


Program 31 
|М 
10 MODE 2 
20 K= RAD (180/2000) 
30 M-0.7 
40 FOR X= - 100 TO 100 STEP 2 
50 GCOLO .AND(12) 
60 ҮМ= 6* INT(SGR (10000 - Х* X) /5) 
70 FOR Y= YM TO - YM STEP -5 
BØ LET Z=(SQR (X*X+ Y* Y) )- M* Y 
90 IF Y=YM THEN 110 
100 IF Z< Z1 THEN 120 
110 PLOT 69,640 + 4*X,500 + INT (2* Z) 
120 21-2 
130 NEXT Y 
140 NEXT X 
150 FOR X= -100 TO 100 STEP 2 
180 GCOLO, RND(12) 
170 YM- 8*INT(SGR (10000 - Х*Х) /5) 
180 FOR Y- YM TO - YM STEP -5 
190 LET Z- (50А (X*X- Y* Y) - M*Y 
200 IF Ү= ҮМ THEN 110 
210 IF Z < Z1 THEN 120 
220 PLOT 69,840 - 4*X,500 – INT (2*2) 
230 21-2 
240 NEXT Y 
250 NEXT X 
260 END 
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Summary of Commands of the 
BBC Microcomputer 


AND Allows a program to take a particular course of action 
only if both the conditions are met. 

AUTO Automatically numbers program lines as a program is 
written; the first number and the spacing between the line 
numbers can be specified. 

CHAIN Carries out the same function as LOAD+RUN. 


It transfers a program from a cassette tape into memory and 
then starts it RUNning. 


CHR$  Converts a character code into a character. 

CLG Clears the graphic area of the screen, 

CLS Clears the text area of the screen. 

COLOUR Selects the colour in which the text and its 
background can be shown on the screen. 

COUNT Counts all the characters printed using PRINT, 
apart from comma, plus, semicolon, etc. 
COS Trigonometric Cosine function. 
DATA The computer treats whatever follows DATA as in- 


formation that may be needed later in the Program; used in 
conjunction with READ. 


DEG Converts a meas 


at 0,0 or from the last point visited, to X,Y, 

END It marks the end of a Program and prevents the com- 
puter carrying on into any subroutines that follow. 

FOR ... NEXT А loop which Tepeats a sequence of program 
statements a specified number of times. 

GCOL Selects a graphics colour. 

GET Waits fora key to be pressed and then returns its ASCII 
number; GET$ returns a string. 
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GOSUB Makes the program jump to a subroutine beginning 

at the line number foliowing the command. 

GOTO Causes a program to jump to the line following the 

command. 

IF ... THEN Prompts the computer to take a particular 

course of action only if the condition specified is. detected. 

INKEY Allows the user to wait for a specified time, during 

which the keyboard is monitored, and returns the ASCII 

number of any key pressed. INKEY$ returns the actual 

character pressed. 

INPUT Instructs the computer to wait for some data from 

the keyboard which is then used in a program. 

INT Converts a number with a decimal fraction into a whole 

number by rounding it off to the lower integer. For example, a 

statement A= INT(7.879) gives A= 7. ; 

LEFT$ Forms a string from the left-hand part of given 

String. 

LET Assigns a value to a varia 

on the BBC Micro. 

LEN Counts the number of characters in a string. 

LIST Causes the computer to display a list of the program 

currently in its memory. 

LOAD Transfers a program fro’ 

the computer's memory. 4 N 
iddle part of a given string. 


MID$ Forms а string from the mi give 
MOD This function gives the remainder after division, such 


as 80/12 will give the number 8. 3 ) 
MODE Selects one of the ВВС Micro's eight screen display 
modes. 

MOVE A special ca 
graphics cursor to 
anything on the screen. 
NEW Removes a progra: 
program can be recovered by using OLD). 

OLD  Recovers a program *DELETEd" from the computer's 
memory by typing NEW or pressing the BREAK key. 
ON...GOTO/GOSUB Makes the program jump to one ofa 
number of statements or subroutines, depending on the value 
`of a variable. z 

ON ERROR Directs the program to state where an error is 
detected. 


ble. The use of LET is optional 


m а cassette tape or disc into 


se of the PLOT command. It moves the 
the point specified without drawing 


m from the computer's memory (the 
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OR Allows a Program to take a particular course of action if 
either of two specified conditions is met. 4 

PLOT Produces points, lines or triangles according to the 
option code that follows it. On the BBC Micro Model B 48 op- 
tions are implemented. For example, PLOT 85 is used to shade 
the triangular area. 

PRINT Causes whatever follows it to appear on the screen. 
RAD Converts a measurement in degrees into radians. 
READ Instructs the computer to obtain information from a 
DATA statement. 
REM  Enables the programmer to add remarks to a program. 
The computer ignores whatever follows REM In a program 
statement. 

RENUMBER . Allows new line numbers to be given to a pro- 
gram. 'The first number and line Spacing can be specified. 
REPEAT ... UNTIL А loop which repeats a sequence of pro- 


gram statements until a specified condition is met. 
RESTORE Resets the computer to READ the first item in a 
DATA list. 

RETURN Terminates a subroutine (See also GOSUB). 
RIGHT$ Forms а string from the right-hand part of a given 
string. 


RND Produces numbers at random within specified limits. 
SAVE Records a program currently in the computer's 
memory onto cassette tape or a disc. The Program is identified 
by a file name. 


SIN The trigonometric sine function. 


SOUND Produces a range of sound specified by the numbers 
Ог variables following the command. 
SOR  Produces the Positive square root of the number that 
follows it. 


STEP Sets the Step size in a FOR - TO .. NEXT loop. It is 
optional to write STEP 1. 

STOP Halts a program and PRINTS out the line number in 
which it appears. 

TAB Sets the position of the text along a line. 

VDU 23 Generates a 


character from a character code, VDU 


also has many other different uses. 


СНАРТЕК 22 


Computer Terminology 


ALGORITHM А prescribed set of well-defined processing 
rules for the solution of a problem in a finite number of steps. 
ALPHABETIC The set formed by the letters of the alphabet 
and special characters, such as period, comma, asterisk, etc. 
ALPHANUMERIC. А general term for alphabetic letters (A 
to Z), numerical digits (0 to 9), and special characters (— ,/,*, 
$,(,), +, etc; that are machine-processable. 
ARITHMETIC LOGIC UNIT (ALU) That portion of the 
hardware of a computer that performs the mathematical and 
logical operations. It is a basic element of the centr 
ing unit. 
ANALYSIS Methodological investigation of a problem by 
any one of the consistent, systematic procedures. 
APPLICATION PROGRAMS The programs, normally writ- 
ten by the user organization, that enables the computer to pro- 
duce useful work; for example, inventory control, payroll, 
general ledger, class results processing, etc. 
ARRAY 
(1) A series of related items. 
(2) An ordered arrangement 
such as a determinant, 
numbers. 
AMERICAN STANDARD CODE FOR INFORMATION IN- 
TERCHANGE (ASCII) Pronounced 'asskey. A. seven-bit 
standard code adopted by computers to represent characters. 
For example, in ASCII code, ‘2’ is 0110010", ‘A’ is 41000001” and 
'$' is “01001007. 
ASSEMBLER А comp 
language instructions prepare 
verts them into computer теа! 
language. 
BACKUP Procedures or equi 
in the event of failure or overloa: 


cedures or equipment. 
BEGINNER'S ALL-PURPOSE SYMBOLIC INSTRUCTION 


al process- 


or pattern of items or numbers, 
matrix, vector or a table of 


uter program that takes symbolic 
d by a computer user and con- 
dable instructions or machine 


pment that are available for use 
ding of the normally used pro- 
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CODE (BASIC) А higher-level computer programming lang- 
uage. BASIC has a small set of commands and simple statement 
formats. BASIC is thus widely used in programming instruc- 
tion, in personal computing and in business and in industry. 
BINARY The number system with a power of 2, or number- 
ing system which uses only the digits 0 and 1. 
BINARY ARITHMETIC A mathematical n 
tem equivalent to our decimal arithmetic s 
only two digits: 0 and 1. 

BINARY DIGIT Either of the character: 
to bit. . 

BIT A binary digit; a di; 
number in binary notati 
computer word. 

BUG A term used to denote a mistake ina 


computer program 
or system,or a malfunction in a computer hardware component. 
BYTE; 


umeration sys- 
ystem but involving 


s бог 1, abbreviated 


git (0 or 1) in the representation of a 
оп. Several bits make up a byte or a 


(1) A grouping of adjacent binar 
computer as a unit. The common 
binary digits. 

(2) A group of binary digits used to represent a single 
character. 

CASSETTE A small plastic cartrid 
inch magnetic tape for use in cassett 
CASSETTE RECORD 
to record and store dig; 


y digits operated on by the 
est sized byte contains eight 


8e containing one-eighth 
e recorders. 

ER A device designed to use cassettes 
ital data and, at a later time, reload this 
data into the computer's internal Storage. It is used widely with 
microcomputers. 


CATHODE RAY TUBE (CRT) An electronic tube with a 
screen upon which information may be displayed. 

CENTRAL PROCESSING UNIT(CPU) The component of 
the computer system equipped with the circuitry to control the 
interpretation and execution of instructions. 

CHARACTER Any symbol, digit, 

mark stored or processed by computin 
CHIP A small, integrated circuit р 
logical elements. А 


letter, or punctuation 
в equipment. 

ackage containing many 
small piece of silicon impregnated with im- 
purities in a pattern to form transistors, diodes, and resistors. 


Electrical paths are formed on it by depositing thin layers of 
aluminium or gold. 


CIRCUIT А Pathway designed for the controlled flow of 
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and related electrical 


ele 
ctrons. А system of conductors 
A com- 


el 
eae through which electrical currents flow. 
СОЗОТ ic link between two or more points. 

L (COMMON BUSINESS ORIENTED LANGUAGE) 


Ahi 
high-level language developed for business data-processing 


eens 

en A control signal; a computer instruction. 

is г LANGUAGE А source language consisting ргі- 

Game of commands capable of invoking а function. 
PUTER Ап electronic device capable of solving pro- 


b Р 

lems ог manipulating data by accepting data, performing 

Prescribed operations (mathematical or logical) on the data, 
ations. 


рр the results of these oper 
$i UTER-ASSISTED INSTRUCTION (CAI) The use of 
th computer to augment individual instructions by providing 
G € student with programmed sequences of instructions under 
РОНЕ control. The manner of sequenci 
š rough the materials permits stu 
ее. CAT is а response to the individual need of the student. 
OMPUTER LITERACY The non-tech h 
computer and its effect upon society. It isan important area in 
computer education as it provides the student with some of the 
knowledge, tools and understanding necessary to live іп a socie- 
ty which is going to be dominated by с ers. 
COMPUTER PROGRAM The series of orderly statements 
and instructions that cause à computer to perform а particular 
Operation or task. 
COMPUTER PROGRAMMER А peri skilled in the 
Preparation of programs for a computer. A programmer de- 
signs, codes, debugs and document 
COMPUTER SCIENC 
all aspects of the design and use о rs ] 
COMPUTER SYSTEM The physical equipment and instruc- 
tions,that is,hardware a 
data. It includes the CPU. 
peripheral equipment such as printer, 
etc., and programs. 
CONSOLE The part of the сот 
Operator to communicate with the system. 4 
CONVERSATIONAL LANGUAGE A programming lang- 
uage that uses a near ENGLISH character set that facilitates 


puter system that enables the 
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communication between the user and the computer. BASIC is 
an example of a conversational language. 
DATA А formalized Tepresentation of the facts or concepts 
suitable for communication, interpretation, or processing by 
people or by automatic means. 
DATA BASE The collection of all data used and produced 
by a computer program. In large systems, data base analysis is 
usually concerned with large quantities of the data stored in 
disc and tape files. Smaller Microcomputer systems are more 
frequently concemed with data base allocations of available 
memory locations between the program and data storage 
areas, also known as data banks. 
DATA PROCESSING: 

1. One or more operations 

the desired results. 
2. The function of the computer centre. 
3. A term used in reference to the operation performed by 
data processing equipment. 

DEBUG To detect, locate and remove all mistakes in a com- 
puter program any malfunction in the computing system itself, 


DISKETTE A floppy disc. A Storage medium for microcom- 
puters and minicomputers. 


DISPLAY А visual representation of the data. 
DISPLAY UNIT А device that provides a visual г 


tion of the data. These are the ca 
printer. 


DOCUMENT: 
1. The medium and informati 
2. A record that can be used 


performed on data to produce 


epresenta- 
thode ray tube, the line 


uring 
uent programming, that describe 
the program prepared, and the 


System analysis and subseq 
such things as the system, 
changes made at later dates 
DOT-MATRIX PRINT. 


bossed with alphanume 
EDIT: 


1. To check the correctness of the data. 


2. To change the form of data b 


y adding or deleting certain 
characters, if necessary. 
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EDP (Electronic Data Processing) Data processing by elec- 
tronic digital computers. 

ERROR А genera term referring to 305 deviation of a com- 
puter or of a measured quantity from de Dheor@ieaty CONGU 
or true value. 3 
EXECUTE Torun а program on the computer ог го carry 


out an instruction- ^ 
а record treated as a unit. 


FILE A collection of relate d 
FILE NAME А set of alphanumeric characters used to iden- 


tif icular file. A 
ity арац A flexible disc coated with numeric sub- 


FLOPPY DISC : с 
stance that is stored in а paper or plastic envelope. It is used to 


store data. : ees 
FLOPPY DISC UNIT A peripheral storage device in which 


data are recorded or read using discs. 
FLOW CHART A diagram that uses symbols and inter- 


connected lines to show the logic and sequence of program 
operations. 

FORMAT The arrangement of data on a VDU or paper. 
FORTRAN A higher level language used to perform mathe- 
matical, scientific and engineering calculations. 

GRAPHICS Facilities to provide computer output in the 
form of display drawings and pictures. 

HARDWARE Physical equipment such as electronic, mag- 
netic and mechanical devices. 

HIGH LEVEL LANGUAGE A programming language orien- 
ted towards problem-solving. 
INPUT The introduction 0 
medium into a computer's internal unit. 
INTERFACE А common boundary between t 
hardware or between two systems. 

I/O DEVICES Abbreviation for INPUT and OUTPUT de- 
vices. 9 
KILOBYTE А kilobyte is 1024 bytes. It is abbreviated as ‘K’. 
LANGUAGE А set of rules, representations and conventions 
used to communicate information (data). 

LOAD То read information from the computer's storage. 
LOGIC The science dealing with the formal principles. of 
reasoning and thought. 

MNEMONICS A group of letters or alphanumeric charac- 
ters so grouped as to assist a programmer in remembering a 


f data from an external storage 


wo pieces of 
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word or phase. 

MAGNETIC TAPE А plastic tape which has a magnetic sur- 
face for storing data. 

MEMORY The storage facilities of the computer. 

MENU А set of options listed on a computer's terminal. 
MICROCOMPUTER A complete small computer system, 
consisting of hardware and software. 

MICROPROCESSOR The central Processing unit of a micro- 
computer. These are used as controlling devices. 
MINICOMPUTER А digital computer that has a higher effi- 
ciency than microcomputers. 

NUMERIC CONSTANT А constant pertaining to a number. 
OFF-LINE Units of equipment that are not connected to the 


computer and hence not in direct communication with the 
computer. 


ON-LINE Contrast with off-line. 
OUTPUT: 

1. Data transferred from a com 
put device. 

2. The final result given b 
magnetic disc or tape. 
OUTPUT DEVICE A u 


puter's internal Storage or out- 
y the computer on paper, VDU, 


nit that is used for taking out data 
presenting them in the desired form. 
programming language. 


PROGRAM: 
1. A sequence of instruction that permit š 
form a particular task. Б “TSS mane, 
2. To design write, and test one or more routi 
; tines. 
RANDOM ACCESS MEMORY (RAM) Itisthemain memory 
of a microcomputer. 
READ ONLY MEMORY (ROM) Non erasable, permanent- 
ly programmed memory. 
SOFTWARE А set of 


along with printed materia 
STATEMENTS High lev 


types of operations to be p 
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of appropriate statements form a high level language program. 
SYSTEM ANALYSIS А study of the activities, methods and 
techniques of organizational systems in order to determine 
what actions should be taken and how these actions can best be 


accomplished. 
жжжжҡжжж 
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КУДУ 


Computers are playing an increasingly vital and growing role in... — — 


today's world, and from offices and factories the microcomputer 
has found its way into-schools and individual homes. Learning to 
use a computer, from being a specialized skill ofa select few, is 

- rapidly becoming a necessity for every educated person. It was 
this that induced the Government of India in 1984 to initiate the 
CLASS (Computer Literacy and Studies in Schools) Project to 
spread computer consciousness and computer skills amongst а 
wide cross-section of school students. 


This book has been written as a text to meet the needs of students 
of classes XI and XII of Kendriya Vidyalayas under the CLASS 
PROJECT, and those of the many other schools who have 
independently introduced computer classes as a part of their 
curriculum. It will also be handy for self-instruction in homes 
“which havea microcomputer. Although the book has been written 
specifically for those Using the BBC microcomputer, with slight 
modifications it can be used in Conjunction with any 
microcomputer based on BASIC computer language. 


A logical step by Step approach, graded in order of levels of 
complexity, has been adopted. Great stress has been laid on 


exercises, both solved and unsolved, at the end of each lesson, to 
give students a confidence in their mastery of one computer skill 

before Proceeding to the next. An intensive course of exercises has 
also been provided at the end of thé book. A special feature is the 


inclusion of chapters on Advanced Graphics, Animation, and 
Sound and Teletext Control. — 
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